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MISSIONE ODESSA 


L’avventura vi introduce in un mondo difficile, fatto di 
menzogne, raggiri e lòtte all’ultimo sangue in cui la 
vita umana lia poco valore. Da una missione di 
spionaggio si esce vivi o vincitori solo se si è i 
migliori e in pochi possono permettersi di scherzare. 
ODESSA è un’organizzazione segreta che permette la 
fuga ai criminali di guerra nazisti. La vostra è una 
missione al servizio dell’umanità, non potete fallire. 







paolo Giortfi 1986 
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13 settembre 
ore 17.24 


1948, L1KZ, AUSTRIA 


L* ufficio «* arredato in maniera molto 
semplice; uno schedano polveroso, delle 
foto alle pareti. una massiccia e au¬ 
stera scrivania nel centro, alcune sedie 
imbottite. Su una di queste, dietro la 
scrivania,Simon Hiesenthal ti guarda at¬ 
tentamente; quando si decide a parlare, 
il tono della sua voce ti colpisce tanto 
e* freddo, privo di emozioni. 

-Questa volta non sara* facile, David. 
Hai una missione difficile e nessun ap¬ 
poggio ufficiale. Gli informatori di Ber 
lino mi hanno avvisato da qualche tempo 


a qualche tempo 
organizzazione 
nizza la fuori- 
Cermania. 


dell* esistenza d 
chiamata ODESSA eh 
uscita dei nazisti 


Premi la barra per continuare 


Dopo Norimberga 

Norimberga, 30 settembre 
1946. Il tribunale speciale 
per i crimini di guerra con¬ 
danna i maggiori esponenti 
della Germania nazista. La 
sentenza segna per la storia 
la fine del regime, ma non 
cancella gli errori di cui si è 
reso responsabile. 

Nella Germania del primo 
dopo-guerra, un paese occu¬ 
pato e distrutto di cui gli Al¬ 
leati stanno decidendo il fu¬ 
turo, un ometto insignifi¬ 
cante, scampato miracolosa¬ 
mente dai campi di stermi¬ 
nio, inizia una ricerca che 
ancora oggi non considera 
conclusa. 

Il suo nome è Simon Wiesen- 
thal, il suo scopo quello di 
scovare i gararchi nazisti, i 
comandanti dei campi di 
sterminio, gli uomini della 
“soluzione finale", il termi¬ 
ne usato da Hitler per indi¬ 
care il genocidio degli ebrei 
europei. 

Fonda un Centro di Docu¬ 
mentazione, con l’obiettivo 
di raccogliere materiale do¬ 
cumentario sulle stragi dei 
campi e sulla persecuzione 
antisemita, e crea una rete 
internazionale per l’indivi¬ 
duazione dei criminali nazi¬ 
sti ancora latitanti, di cui è 
considerato il più impietoso 
cacciatore. 


In fuga verso sud 

La vicenda si svolge nel 
1948. Il processo di Norim¬ 
berga ha definitivamente ri¬ 
velato ai tedeschi e al mon¬ 
do la vera natura del nazi¬ 
smo, i capi del regime ven¬ 
gono in gran parte, in molti 
casi fortunatamente, cattu¬ 
rati, ma sono molti quelli 
che, approfittando della 
confusione seguita alla ca¬ 
duta del Reich, sono spariti 
dalla circolazione o addirit¬ 
tura sono riusciti a conqui¬ 
stare posti di responsabilità 
nelle nuove amministra¬ 
zioni. 

Il paese è sotto il controllo 
degli Alleati e la divisione 
tra est e ovest non è ancora 
avvenuta. 

Siamo a Berlino, la ex-capi¬ 
tale è divisa in 4 settori e 
l’azione si svolge in quello 
russo. 

Wiesenthal riceve informa¬ 
zioni riguardanti ODESSA, 


una organizzazione creata 
con lo scopo di facilitare la 
fuga all’estero dei criminali 
nazisti. 

A partire dal 1947 l’organiz¬ 
zazione aveva creato una re¬ 
te d’informatori e di ritrovi, 
passando poi alla realizza¬ 
zione di complessi piani di 
fuga. Coperta da influenti 
protezioni, sia in Germania, 
che in altri paesi europei, 
ODESSA poteva operare con¬ 
tando sulla poca accuratez¬ 
za dei controlli e su una se¬ 
rie di itinerari sicuri verso i 
porti dell’Europa del sud. 

Da qui i ricercati partivano 
per il Sud America dove fa 
cevano perdere le tracce con 
la complicità dei governi lo 
cali. 

L f archivio dei 
gerarchi 

Nella sua attività Wiesen 
thal ha come collaboratori o 
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informatori persone soprav¬ 
vissute ai campi di stermi¬ 
nio, parenti delle vittime de¬ 
cisi ad avere giustizia e ex¬ 
nazisti che intendono ripa¬ 
rare alle loro colpe. 

David Liehermann, operaio 
di Stoccarda, salvato dalla 
camera a gas dall’arrivo de¬ 
gli alleati, è il miglior agen¬ 
te di Wiesenthal. Si erano 
conosciuti subito dopo la li¬ 
berazione e non avevano 
avuto difficoltà ad intender¬ 
si: quando il Centro di Docu¬ 
mentazione iniziò la sua at¬ 
tività a Linz, in Austria, Lie- 
bermann venne chiamato a 
collaborare al lavoro d’inda¬ 
gine, diventando ben presto 
l’uomo più prezioso di Wie¬ 
senthal. 

Non è quindi un caso se una 
missione così delicata viene 
affidata a lui. 

I mille occhi e le mille orec¬ 
chie di Wiesenthal lavoran¬ 
do instancabilmente alla ri¬ 
cerca di informazioni sulle 


attività di ODESSA, scovano 
a Berlino, in una zona deva¬ 
stata dai bombardamenti, 
un vecchio stabile in rovina 
appartenuto al borgomastro 
(Gauleiter) e diventato ne¬ 
gli ultimi giorni del terzo 
Reich, un centro operativo 
delle SS, dove i membri 
dell’organizzazione nazista 
tengono le loro riunioni per 
architettare nuovi piani di 
fuga. 

Nella casa del Gauleiter, se¬ 
condo gli informatori, do¬ 
vrebbero trovarsi i docu¬ 
menti riguardanti le attività 
del gruppo, i piani e gli ar¬ 
chivi contenenti i nomi e i 
nascondigli dei gerarchi ri¬ 
cercati. 

Mettere le mani su materia¬ 
li di tale importanza signifi¬ 
ca distruggere ODESSA, 
smascherare i suoi contatti 
in Germania e all’estero e, 
soprattutto, catturare deci¬ 
ne di criminali di guerra. 
Durante la notte Lieber- 


mann viene accompagnato 
nella casa da un uomo di fi¬ 
ducia di Wiesenthal che gli 
dà appuntamento per il mat¬ 
tino seguente. L’operazione 
comporta diversi rischi a 
causa dei controlli russi nel¬ 
la zona e perché, nelle pri¬ 
me ore del giorno dopo, è 
prevista una riunione 
dell’organizzazione nazista. 
Il fattore tempo è importan¬ 
tissimo, la missione deve es¬ 
sere portata a termine pri¬ 
ma che le luci del giorno 
possano tradire la presenza 
di Liebermann nella casa ed 
evitando un poco gradito in¬ 
contro con i membri di 
ODESSA. Siete nell’atrio del¬ 
la casa diroccata, d’ora in 
poi tutto dipende da voi. 
Buona caccia! 


Nella casa del 
Borgomastro 

Il gioco ha inizio nell’ufficio 
di Wisenthal dove il diretto¬ 
re del Centro di Documenta¬ 
zione comunica a David i 
termini della sua missione. 
Questo incontro e il seguen¬ 
te, a Berlino con l’uomo che 
lo poterà alla casa sono in¬ 
troduttivi all’avventura: leg¬ 
geteli con attenzione e non 
fate domande. 

Al vostro arrivo nella casa il 
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s«i in un vwldo •«* angusto 
Vtao \u\a lampada. 




Cosa davo faro t prandi lampada 
ratto. 

sai in un umido od angusto ripostiglio. 

lo tao tarala si spaflna 41 colpo> d«\-t 
assara «Ifattaaa. 


K* porlaolasa sao%*srsi sansa loca. 

Cosa davo fora t aooandi lampada 

La lampada a* aooasa. 

set in un umido ad angusto ripostiglio. 

Cosa davo faro t ■ 



programma vi chiede cosa 
deve fare. I comandi vanno 
sempre rivolti in seconda 
persona e nella forma “ver¬ 
bo + (articolo) + oggetto”. 
L’articolo può essere omes¬ 
so, ma in nessun caso è pos¬ 
sibile abbreviare comandi e 
nomi che, altrimenti, non 
verrebbero riconosciuti dal 
programma. 

Le direzioni 

Sono quelle rappresentate 
dai 4 punti cardinali, più le 
direzioni verticali ALTO e 
BASSO che possono essere 
sostituite da SU e GIÙ. 

Per muoversi da una loca¬ 
zione all’altra basta comu¬ 
nicare al computer la dire¬ 
zione desiderata in forma 
completa o con la sola ini¬ 
ziale (es. NORD, N). 

Per gli spostamenti in verti¬ 
cale valgono anche i coman¬ 
di SALI e SCENDI. 


Inventario 

COSA, INVENTARIO e? co¬ 
mandano l’elencazione degli 
oggetti che si stanno tra¬ 
sportando. Non è possibile 
portare più di 5 oggetti con¬ 
temporaneamente e quindi 
dovete tenere sempre d’oc¬ 
chio il vostro carico. 
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Salvataggio 

La partita può essere inter¬ 
rotta in ogni momento e poi 
ripresa grazie all’opzione di 
salvataggio della situazione 
di gioco a cui si accede digi¬ 
tando il comando SAVE. 


Inserite la cassetta o il di¬ 
schetto e confermate l’ope¬ 
razione tenendo conto che 
mentre su disco il file SI 
TU AZIONE, contenente le 
informazioni di status del 
gioco, viene aggiornato ogni 














volta, sulla cassetta è possi¬ 
bile avere più file (ma con lo 
stesso nome) e quindi ri¬ 
prendere il gioco in condi¬ 
zioni diverse. Nessuno vi 
vieta di salvare file differen¬ 
ti anche su disco, ma in que¬ 
sto caso dovrete disporre di 
più supporti. 


Caricamento 

Avviene utilizzando in aper¬ 
tura di gioco il comando 
LOAD. Se i dati sono stati 
salvati su cassetta assicura¬ 
tevi che sia posizionata cor¬ 
rettamente, oppure il pro¬ 
gramma caricherà il primo 
file individuato. 


Qualche 

suggerimento 

Il programma è in grado di 
riconoscere un buon nume¬ 
ro di parole, alcune delle 
quali omologhe per quanto 
riguarda gli effetti. Leggete 
sempre con attenzione le de¬ 
scrizioni del computer ed 
eviterete di dover provare 
tutti i verbi della lingua ita¬ 
liana ad ogni nuova situa¬ 
zione. 

I documenti che dovete tro¬ 
vare sono: una lista di servi¬ 
zio contenente i nomi di 
1500 alti ufficiali delle SS, 
un piano di fuga elaborato 
alla fine della guerra ed uno 
attualmente utilizzato da 
ODESSA. 

La casa del Gauleiter è in 


cattive condizioni, fate at¬ 
tenzione quindi a dove met¬ 
tete i piedi, tantopiù che Da¬ 
zione si svolge di notte e 
muoversi al buio può essere 
pericoloso. 

Non potendo trasportare 
più di 5 oggetti dovrete or¬ 
ganizzarvi in modo d’avere 
a disposizione solo ciò che 
può risultare utile all’esplo¬ 
ratore delle stanze. Racco¬ 
gliete i documenti e gli stru¬ 
menti utili in locazioni fa¬ 
cilmente raggiungibili e la¬ 
sciate subito gli oggetti che 
si riveleranno di poco inte¬ 
resse. 

Evitati i pericoli “naturali”, 
la vostra unica preoccupa¬ 
zione dovrà riguardare lo 
scorrere del tempo. I nazisti 
hanno fissato una riunione 
per la mattina e, dato che 
siete disarmati, un incontro 
con loro potrebbe risultare 
poco salutare. 

La missione non si conclude 
con il ritrovamento di tutti i 
documenti che state cercan¬ 
do: ricordatevi il luogo 
dell’appuntamento fissato 
con Ferenc (l’uomo di Wie- 
senthal a Berlino). 

Il superamento di ogni si¬ 
tuazione “scabrosa" è pre¬ 
miato da un incremento del 
punteggio che viene visua¬ 
lizzato dal comando PUNTI. 
Una precauzione che ogni 
giocatore d’adventure deve 
sempre prendere è quella di 
disegnare una mappa del 
luogo in cui si trova ad agi¬ 
re, con specifiche direzioni e 
contenuti delle varie loca¬ 
zioni. Non fatevelo ripetere 
ogni volta! 


Se siete in preda alla dispe¬ 
razione e non vi raccapezza¬ 
te più, non vi resta che usa¬ 
re il comando FINE che, ap¬ 
punto, mette fine alle vostre 
tribolazioni. Un’altra solu¬ 
zione, meno vigliacchesca, 
potrebbe essere quella di at¬ 
tendere l’alba e farvi cattu¬ 
rare dai nazi: una bella mor¬ 
te eroica non ve la toglie 
nessuno. 

Istruzioni per 
il caricamento 
del programma 

Premere contemporanea¬ 
mente i tasti SHIFT e 
RUN/STOP sulla sinistra del¬ 
la tastiera. Sullo schermo 
apparirà la scritta “PRESS 
PLAY ON TAPE”; premere il 
tasto PLAY sul registratore. 
Il programma verrà esegui¬ 
to automaticamente. In caso 
di mancato caricamento ri¬ 
petere la procedura dopo 
aver controllato la corretta 
connessione tra computer e 
registratore. 
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Guida 

all’input C64 


Norme per la 
battitura 

I caratteri grafici, ottenuti 
con la pressione dei tasti 
“Shift” e “CBM”, sono codifi¬ 
cati in modo da indicare il 
tasto da premere assieme a 
“Shift” o “CBM”. Es. il cuori¬ 
cino è codificato con >SH 
S <. Il numero dentro le pa¬ 
rentesi indica le volte che il 
tasto va premuto. 
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TABELLA DI CONVERSIONE 


{HOME}.HOME 

{ CLR }.PULIZIA SCHERMO 

{CUR.SU}.CURSORE IN ALTO 

{CUR.GIU}.CURSORE IN BASSO 

{CUR.DES}.CURSORE A DESTRA 

{ CUR . SIN }.CURSORE A SINISTRA 

{SPC }.SPAZIO 

{ RVS ON }.REVERSE ON 

{ RVS OFF}.REVERSE OFF 

{ INST}.INSERT 

{FI }_.'..‘TASTO FI 

{ F2 }.TASTO F2 

{ F3 }.TASTO F3 

{FU}.TASTO FU 

{ F5 }.TASTO F5 

{F6}._TASTO F6 

{ F7 }.TASTO F7 

{ F8 }.TASTO F8 

{BLACK}.COL. NERO (CTRL-1) 

{WHITE}.'.COL. BIANCO (CTRL+2) 

{RED}.COL. ROSSO (CTRL+3) 

{ C Y AN }.COL. CIANO (CTRL+4) 

{PURPLE}.COL. PORPORA (CTRL + 5) 

{GREEN}...._COL. VERDE (CTRL-6) 

{BLUE}.COL. BLU (CTRL + 7) 

{YELLOW).COL. GIALLO (CTRL + 8) 

{ORANGE}.COL. ARANCIO (CBM-H) 

{BROWN}.COL. MARRONE (CBM + 2) 

{ LT . RED }.COL. ROSSO CHIARO (CBM*3) 

{ GR A Y 1 }.COL. GRIGIO 1 (CBM+4) 

{ GRA Y2 }.COL. GRIGIO 2 (CBM + 5) 

{LT.GREEN}.COL. VERDE CHIARO (CBM + 6) 

{ LT.BLUE}.COL. BLU CHIARO (CBM + 7) 

{ GR A Y3 }.COL. GRIGIO 3 (CBM-8) 





































CONTI DI CASA 


La mania dei tabelloni elet¬ 
tronici si va sempre più dif¬ 
fondendo, non solo fra colo¬ 
ro che li utilizzano per lavo¬ 
ro, ma anche tra i possesso¬ 
ri di personal che ne fanno 
un uso hobbistico. 

Il programma presentato, 
ben lungi dal voler emulare 
i suoi consimili, può servire 
per dare un po’ di ordine al¬ 
la spesso disordinata conta¬ 
bilità domestica. Come dice 
il titolo, questo programma 
consente di tenere aggiran¬ 
te le spese e le entrate di 
una famiglia, in modo da 
avere sempre sott’occhio, la 
propria disponibilità econo¬ 
mica. Il programma gira sul 
C64 nella configurazione 


minima, vale a dire con il 
solo registratore come me¬ 
moria di massa, in questo 
caso usato per memorizzare 
la tabella dopo gli aggiorna¬ 
menti. È previsto anche 
l’uso della stampante, ma 
non è determinante per 
l’utilizzazione del program¬ 
ma stesso. Dato il Run pre¬ 
senta l’intestazione ed invi¬ 
ta ad inserire la data del 
giorno (usata in seguito); 
ad esempio, nel caso del pri¬ 
mo Marzo digitare: 01 03 
86. Inserita correttamente 
la data il programma pre¬ 
senta il menu contenente 
sette opzioni, che andremo 
ad esaminare più da vicino. 
La prima è il caricamento 


da nastro di una eventuale 
tabella già registrata: in 
questo caso basterà posizio¬ 
nare il nastro all’inizio del¬ 
la tabella, che verrà caricata 
automaticamente. Opposta a 
questa prima opzione è, in 
ordine di menu, la seconda, 
la registrazione, la quale, se 
usata, permette appunto di 
registrare la tabella appena 
aggiornata. Porre attenzio¬ 
ne al fatto che in caso di ca¬ 
ricamento e di registrazione 
della tabella il nome del file 
usato, in entrambe le opera¬ 
zioni e quello del mese digi¬ 
tato ihizialmente. Così, se 
alla data iniziale si era ri¬ 
sposto con 01 03 86, il nome 
del file per indentificare la 
tabella sarà Marzo, quindi 
per tutto un mese il nome 
del file, nelle operazioni di 
1/0, sarà lo stesso. Dopo 
aver aggiornato la tabella, 
per non avere più di un file 
con lo stesso nome in una 
cassetta, consigliamo di so¬ 
vrapporre la. nuova regi¬ 
strazione alla vecchia. Fin 
qui l’uso del programma po¬ 
trebbe sembrare caotico, ma 
vi assicuriamo che non lo è 
affatto, quindi vi invitiamo a 
continuare a leggere più 
avanti, dove sarà descritta 
un’importante operazione: 
l’aggiornamento. Questa 
operazione, la n. 4 del menu, 
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1 REM tu*»***»**»***»*»»*******»**»»* 

2 REM"**{2 SPC}{SH C){SH 0}(SH N}(SH T}{ 
SH A } { SH B }{ SH I }{ SH L}{SH I }{ SH T}{SH 

A}' {SH SPC}{SH C >{SH A}{SH SllSH A } {S 
H L}{SH I}{SH N}{SH G}{SH A}{2 SH SPC) 
* * « 

3 REM"**{3 SPCJBY {SH A}LBERTO {SH D}E { 
SH S}IMONE{3 SPC}**" 

REM"** { 4 SPC) { SH V } I A { 2 SPC}{SH VjICTO 
R {SH H}UGO 9{^ SPC}»*" 

5 REM"**{5 SPC}{SH P}ORTOFERRAIO{2 S PC } { 
SH L}{SH 1}{5 SPC}**" 

6 REM ** 10 / 03 / 8M »» 

7 REM «in******»»**»**»***»**»*»***»* 

10 GOSUB1 0000 :FORA-0TO39 

15 POKE1 1 1 l4 + A,42:POKE15 i 1 , 1 + A f l l2 
20 POKE55416+A.5: POKE5581 6 + A , 5 : NEXT 
25 PRINT"{4 CUR.GIU}{13 CUR.DES}{RVS ON} 
{SH C}{SH 0}{SH N}{SH T}{SH A}{SH B}{ 






sarà chiaramente la prima 
che verrà effettuata da chi si 
accingerà ad usare il pro¬ 
gramma per la prima volta. 
Premuto il tasto che permet¬ 
te la scelta sul menu, in que¬ 
sto caso il 4, viene posta la 
domanda se si desidera l’u¬ 
scita dei dati sul video o sul¬ 
la stampante video. Nel caso 
di scelta della seconda o- 
pzione seguirà il messaggio 
per invitare all’accensione 
della stampante. In entram¬ 
bi i casi ci troveremo di 
fronte ad un elenco conte¬ 
nente tutte le voci della ta¬ 
bella, suddivise in tre cate¬ 
gorie, che tengono conto di 
tutti (o quasi) i possibili 
movimenti di entrata o usci¬ 
ta di una normale famiglia 
italiana. Le categorie di sud- 
divisione sono tre: il C/C 
bancario, le entrate le usci¬ 
te, che sono di gran lunga le 
più numerose. Iniziamo con 
le entrate, dove ne sono sta¬ 
te previste tre, due stipendi 
(marito e moglie) ed una 
terza per una eventuale en¬ 
trata straordinaria. Per ag¬ 
giornare una di queste tre 
voci digitare prima la lette¬ 
ra di identificazione, che in 
questo caso è la E, poi il nu¬ 
mero attribuito alla voce 
specifica: 1 per lo stipendio 
1,2 per lo stipendio 2 e 3 per 
la terza entrata. Per le usci¬ 
te la procedura è la stessa, 
solo che la lettera di identi¬ 
ficazione è U. Se l’uscita da 
aggiornare ha il numero che 
la contraddistingue compo- 
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SH IHSH LMSH IltSH T}{SH A}’{RVS OF 
FI" 

30 PRINT"{2 CUR . GIU 1 {14 CUR.DES}(RVS ON} 
{SH C} {SH AHSH SHSH A}{SH L}{SH IH 
SH N}{SH G) {SH A) {RVS OFF}" 

35 PRINT"{2 CUR . GIU}A.D.S. {2 SPC184•"; 

40 PRINT"{7 CUR.GIU}INSERISCI DATA ODIER 
NA" 

45 PRINT"{2 CUR.GIU}{15 CUR.DES}{2 CBM P 
} / {2 CBM P} / 1912 CBM P}" 

50 K-19:G0SUB125:GG$="":F0RA=15T016 
55 G0SUB115 
60 GG$-GG$+XX$:NEXT 

65 GG«VAL(GG$): IFGG<1ORGG>31 THEN50 
70 K-19:G0SUB125 
75 M M $ « " ":FORA-20T021:G0SUB115 
80 MM$-MM$+XX$:NEXT 

85 MM-V AL(MM$): IFMM<10RMM>12THEN70 

90 K-19:G0SUB125 

95 AA$-"":F0RA-27T028:G0SUB115 

100 AA$-AA$+XX$:NEXT 

105 AA-VAL(AA$):IFAA<84THEN90 

110 GOT0140 

115 XX$«"":GETXX$: IFXX$ = ""THEN1 15 

120 PRINTTAB(A)XX$; :RETURN 

125 REM *» POSIZIONAMENTO RIGA ** 

130 PRINTCHR$(19) :FORA-OTOK 
135 PRINTCHR$(17) ; :NEXT:RETURN 
140 FORA-0TO60O:NEXT 

145 X-0:PRINT"{CLR} {4 CUR.GIU}{5 CUR.DES 
}{RVS ON} {SH M}{SH E}{SH N}{SH U } * { 

SH PHSH R } { SH I} {SH N}{SH C } { SH I}{ 
SH P } {SH A } {SH L}{SH E}{RVS 0FF}{4 C 
UR.GIU } " 

150 PRINT" {4 CUR . DES } 1 {9 SPC}CARICAMENTO 
TABELLA{CUR.GIU}" 

155 PRINT"{4 CUR.DES}2{9 SPC}REGISTRAZIO 
NE TABELLAtCUR.GIU}" 

160 PRINT"{4 CUR.DES1319 SPC}VISUALIZZAZ 
IONE TABELLAlCUR.GIU}" 

165 PRINT"{4 CUR . DES } 4{9 SPC}AGGIORNAMEN 
TO TABELLAlCUR.GIU}" 

170 PRINT"{4 CUR.DES}5{9 SPCJSTAMPA TABE 
LLA{CUR .GIU}" 

175 PRINT"{4 CUR .DES}6{9 SPC}RIPORTO FIN 
E MESElCUR .GIU}" 

180 PRINT"{4 CUR . DES}7{9 SPCjFINE ELABOR 
AZIONE" 

190 R$-"":GETR$:IFR$-""THEN190 
192 X-VAL(R$): IFX<1ORX>7THEN190 
195 K-X* 2 + 5:FORW-0TO8 

200 G0SUB125 :PRINT"{3 CUR.DES}{2 SPC}" 
205 G0SUB125 :PRINT"{3 CUR.DES}";X 
210 NEXT:0NXGOTO300,370,550,960,1485,170 
0 , 1770 

300 PRINT" {CLR} 13 CUR . GIU } {5 CUR.DESHRV 







S ON}{SH C}{SH A}{SH R}{SH Iì{SH C}{ 
SH A } {SH MHSH EHSH N}{SH T } {SH 0 } { 
SH S PC } {SH T11SH A}{SH B}{SH E}{2 SH 
L } {SH A } { RVS OFF}{2 CUR.GIU}" 

305 PRINT"(5 CUR . DES}MESE DI{2 SPC}";ME$ 
(MM) 

310 0PEN5,1 , 0 , ME $(MM ) 

315 INPUTA5 ,DP$:INPUT#5,CA 

320 INPUT#5,CP:X-CA:GOSUB500:BA$-X$ 

325 X-CP:GOSUB500:BP$-X$ 

326 INPUT#5.TE 

3 30 INPUT#5,0T:X«TE:G0SUB500:T1$-X$ 

332 X-OT:GOSUB500:T2$-X$ 

335 INPUT#5 ,MP:X-MP:GOSUB500:MP$-X$ 

340 IFST-64THEN365 
3 45 F0RA-1T03:INPUT#5,VA(A):NEXT 
350 F0RW-1T0 3:X-VA(W):GOSUB500 : A$(W)-X$ : 
NEXT 

355 F0RW-1T026:IN P U T # 5,VP(W) 

360 X-VP(W) :GOSUB500:P $(W)» X $:NEXT 
365 CLOSE5: GOTO 145 

370 D-MM : PRINT" {CLR } { 3 CUR.GIU} {^4 CUR.DE 
S } {RVS ON } {SH R } {SH E}{SH G}{SH I}{S 
H S } { SH T } { SH RHSH A}{SH Z } { SH I } { S 
H 0} {SH N}{SH E}{SH SPC}{SH T){SH A} 
[SH B}{SH E}(2 SH L}{SH A}{CUR.GIU}{ 
RVS OFF}" 

375 PRINT"{4 CUR . DES}MESE DI{2 SPC}";ME$ 
(D) 

380 0PEN2,1 ,1 ,ME $(D ) 

385 DP$^STR$(GG)+"/"+STR$(MM)+"/'"+STR$( 
AA) 

390 PRI NT #2, D P $;Z $ 

395 PRINT#2,CA;Z$;CP;Z$ 

400 PRINT02,TE;Z$;OT;Z$ 

405 PRINT#2,MP:IFJ-JTHEN420 
410 PRINT#2,Z$:F0RA-1T03:PRINT#2,VA(A);Z 
$ : NEXT 

415 FORA - 1T026:PRINT#2,VP(A);Z$:NEXT 
420 CL0SE2:G0T0145 

500 REM »* PUNTO SEP. MIGLIAIA ** 

505 X$-STR$(X) 

510 L-LEN(X$):IFL<5THEN545 
515 IFL<8THENX$«LEFT$(X$,L-3) +n . " + RIGHT$ 
(X$,3):G0T0545 
520 IFL<11THEN540 

525 XO$-LEFT$(X$,L“9)+"." + MID$(X$,L-8,3) 
530 XO$-XO$ + "." + MID$(X$,L-5,3) + "." + R IG H T 
$(X$,3) 

535 X$-X0$:G0T05 1 <5 

540 X$«LEFT$(X$,L-6)+"."+MID$(X$,L-5,3) + 
"."♦RIGHT $(X $,3) 

545 X- 13 -(LEN(X$)):IFX-OTHENRETURN 

546 FORA-OTOX:X$-" "♦X$ : NEXT:RETURN 

550 PRINT" { CLR } {5 CUR.DESMSH T}{SH A } {S 
H B}{SH E}{2 SH L}{SH A } {SH SPC}{SH 
MHSH EHSH SHSH E}{SH SPC}{SH D}{S 


sto da una sola cifra, preme¬ 
re Return subito dopo aver 
battuto il numero; in tutti 
gli altri casi dopo aver bat¬ 
tuto il numero della voce de¬ 
siderata il passaggio alla fa¬ 
se successiva è automatico. 
Premere invece C per ag¬ 
giornare il C/C bancario. Su 
quest’ultimo c’è da dire che 
non tiene conto degli inte¬ 
ressi, sia passivi che attivi, 
ma solo degli eventuali mo¬ 
vimenti (prelevamenti o 
versamenti). Esso non in¬ 
fluisce sull’andamento della 
contabilità domestica, ma 
per un buon funzionamento 
dell’insieme è bene specifi¬ 
care alcune cose. Nel caso di 
un prelevamento di L. 
500.000, ad esempio, per 
manutenzione alla propria 
auto si aggiornerà la voce 
prelevamenti del C/C banca¬ 
rio, ma anche la voce appo¬ 
sita, cioè manutenzione au¬ 
to, in modo da vedere poi a 
fine mese che sono state 
spese 500.000 lire per la 
propria autovettura. Dopo 
aver effettuato la scelta si 
passa alla fase di aggiorna¬ 
mento vero e proprio, con la 
richiesta dell’importo, nella 
quale vengono indicati il no¬ 
me della voce prescelta, in 
alto, mentre più in basso ap¬ 
pare l’importo che la voce 
conteneva già. Se la voce 
non era mai stata modifica¬ 
ta prima, l’importo sarà ze¬ 
ro. Digitando le cifre, esse 
verranno visualizzate sulla 
riga bianca sotto l’importo 








precedente. Dopo aver battu¬ 
to tutti i numeri che com¬ 
pongono la cifra desiderata 
premere Return e la cifra 
appena scritta sarà sostitui¬ 
ta dalla stessa, con aggiunti 
i punti separatori delle mi¬ 
gliaia, in modo da vedere se 
l’importo è realmente quello 
voluto (non è difficile sba¬ 
gliare). A questo punto vie¬ 
ne sommato l’importo intro¬ 
dotto a quello eventualmen¬ 
te già presente e ne viene 
mostrato il totale. Viene po¬ 
sta la domanda se tutto è 
OK; in caso affermativo 
premere S per tornare alla 
lista delle voci, altrimenti 
premere N per tornare di 
nuovo ad introdurre l’im¬ 
porto. In caso di errore nel¬ 
la fase di input numerico 
premere il Inst-Del per can¬ 
cellare il numero preceden¬ 
te e T per cancellare tutto. 
Ovviamente in questa fase le 
lettere non vengono accetta¬ 
te. A questo punto, se aveva¬ 
mo optato per il video e 
stampante, viene stampato 

11 movimento appena effet¬ 
tuato sulla voce. Terminato 
l’aggiornamento premere M 
per tornare al menu. Passia¬ 
mo ora ad un’altra impor¬ 
tante routine, la visualizza¬ 
zione della tabella. Questa è 
una rilevante fase ed è qui 
che si esplica la funzione di 
un tabellone elettronico, 
cioè la visione di quali risul¬ 
tati si sono raggiunti con il 
cambiamento di alcuni valo¬ 
ri. La prima videata mostra, 
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H 1} ";ME$(MM) 

555 PRINT"{CUR .GIU} {SH D}ATA ULTIMA REGI 
STRAZIONE ";DP $ 

560 PRINT:CS-CA-CP 

565 X-CS:GOSUB500:CS$-X$ 

570 FORA-0TO39:PRINT"-";:NEXT 
575 PRINT" (3 CUR.DESHSH C}/{SH C}{SH SP 
C}{SH BHSH AllSH N1ISH C} {SH A}{SH 
R}{SH I}{SH 0} {RVS ON}{SH S}{SH A}{ 
SH L}{SH D}{SH 0}{RVS OFF} {SH L}. " 

• cs$ 

580 PRINT"{CUR.GIU}"CA$;BA$ 

585 PRINTCP$;BP$ 

5 90 PRINT: FORA-0TO39 :PRINT"-"; :NEXT 
595 PRINT"{9 CUR.DES}*»{2 SPC}{SH E}{SH 
N } { SH T } { SH R } { SH A } { SH T}{SH.E}{2 S 
PC } * * { CU R . Gl U } " 

600 FORA-1T03 

605 PRINTNA$(A); A $(A):NEXT 
610 PRINT:FORA-OT039:PRINT" - "; :NEXT 
615 PRINT"{3 CUR.DES}{SH T}{SH 0}{SH T}{ 
SH A}{SH L}{SH E} {RVS ON}{SH E}{SH 
N } {SH T } {SH R } {SH A}{SH T}{SH E}{RVS 
OFF} {SH L} . "}T1 $ 

620 PRINT" {3 CUR .DES} {SH-T} {SH 0}.{SH T}{ 
SH A } {SH L}{SH E} {RVS ON}{SH U}{SH 
S } { SH C } {SH I } {SH TUSH E}{RVS OFF}{ 
2 SPC}{SH L}. ";T2$ 

625 X-(TE~OT)+MP:G0SUB500:DS$=X$ 

626 PRINT"{SH S}ALDO MESE PREC.{2 SPC}{S 
H L}. ";MP$ 

630 PRINT"{CUR.GIU}{SH E}{2 SH F}{SH E}{ 
2 SH TJ{SH I } {SH V } {S H A}{SH SPC}{SH 
D } {SH I}{SH S}{SH P}{SH 0}{SH N}{SH 
I } {SH B}.{3 SPC}{SH L}. ";DS$ 

635 PRINTTAB(28)"{11 CBM T}" 

6H0 PRINT" t M-MENU ]";TAB(36)"-->{CUR.S 
U}" 

6U5 R$-"":GETR$ 

650 IFR$<>"."ANDR$<>"M"THEN645 
655 IFR$-"M"THEN1^ 5 

660 PRINT"{CLR}{12 CUR.DES}»»{2 SPC}{SH 
U } {SH S)[SH C } {SH I } {SH T}{SH E}{2 S 
PC}**{CUR.GIU}" 

665 TG-0:FORA-1T08:TG-TG+VP(A): NEXT 
670 PRINT"{12 CUR. DES}{RVS ON}{SH S}{SH 
P } {SH E } {SH SHSH EHSH SPC}{SH G}{S 
H E } {SH N } {SH E}{SH R}{SH A}{SH L}{S 
H 1} {CUR.GIU}" 

675 F0RA-1TO8:PRINTNP$(A);P$(A) 

680 PRINT:NEXT 

685 X-TG:G0SUB500:TG$-X$ 

690 PRINT"{CUR.GIU}{SH T}{SH 0}{SH T}.{S 
H SPC} {SH SHSH PHSH E}{SH S}{SH E} 
{SH SPC } {SH G } {SH EHSH N}{SH E}{SH 
R) {SH A} {SH L} {SH I}{2 SPC}{SH L'}. " 



; TG$ 

695 F0RA-0T039:PRINT"-";:NEXT 
705 PRINT"{CUR.GIU}{CUR.DES}<““{11 SPC}[ 
M-MENU ]{11 SPC}-->{CUR.SU}" 

710 R$-" ":GETR$ 

715 IFR$<>" ANDR$<>" . "ANDR$O"M"THEN710 
720 IFR$-"M"THEN145 
725 IFR$- n ."THEN550 

730 PRINT"{CLR}":F0RA-0T039:PRINT"- n ; : NE 
XT 

735 PRINT"{12 CUR.DES}{RVS 0N}{SH S}{SH 
P}(SH E}{SH S)[SH E}{SH SPC}{SH P}{S 
H E}{SH R}{SH S}{SH 0}{SH N}{SH A}{S 
H LHSH I} { RVS OFF} (4 CUR.GIU}" 

7 40 TP-0:FORA-9T013:PRINTNP$(A);P$(A) 

745 PRINT 

750 TP-TP + VP(A ):NEXT 
755 X-TP:GOSUB500:TP$-X$ 

760 PRINT" {4 CUR.GIU} {SH T}{SH 0}{SH T}. 
{SH S}{SH P}{SH E}{SH S}{SH E}{SH S 
PC } {SH P} {SH E}{SH R}{SH S}{SH 0}{SH 
N } {SH A } {SH LHSH 1} {SH SPC}{SH L} 
.";TP$ 

765 FORA-0TO39:PRINT"-"NEXT 
770 PRINT"{CUR.GIU}{CUR.DES}<—{11 SPC}[ 
M-MENU ]{11 SPC}-->{CUR.SU}" 

775 R$-"":GETR$ 

780 IFR$<>","ANDR$<>"."ANDR$<>"M"THEN775 
785 IFR$-"M"THEN1M5 
790 IFR$-" , "THEN660 

7 95 PRINT"{CLR}":FORA-0TO39:PRINT"-"; : NE 
XT 

800 PRINT"{13 CUR . DES}{RVS ON}{SH S}{SH 
P}{SH E}{SH S}{SH E}{SH SPC}{SH A}{S 
H U } {SH T } {SH 0}{RVS 0FF}{2 CUR.GIU} 
n 

80 5 TA-0:F0RA-14T01 9 :PRINTNP$(A);P$(A) 
810 PRINT : TA-TA+VP(A):NEXT 
815 X-T A:GOSUB500:T A $ - X $ 

820 PRINT"{4 CUR.GIU}{SH T } {SH 0}{SH T}{ 
SH A } {SH L}{SH E } {SH SPC}{SH S}{SH P 
} {SH E } {SH S}(SH E}{SH SPC}{SH A}{SH 
U } {SH T } {SH 0}{2 SH SPC}{SH L } . {3 S 
PC}" ; T A$ 

825 F0RA-0T039:PRINT"-"NEXT 
830 PRINT"{CUR.GIU}{CUR.DES}<--{11 SPC}[ 
M-MENU ]{11 SPC}-->{CUR.SU}" 

835 R$-"":GETR$ 

840 IFR$<>" ,"ANDR$<>"."ANDR$<>"M"THEN835 
845 IFR$-"M"THEN145 
850 IFR$-" ."THEN730 

900 PRINT"{CLR}":F0RA-0T039:PRINT"-"; : NE 
XT 

905 P RIN T"{13 CUR.DES} {RVS ON}{SH S}{SH 
P}{SH E}{bH S}{SH E}{SH SPC}{SH C}{S 
H A } {SH S } {SH A}{RVS OFF}{CUR.GlU}" 
910 TC-0:F0RA-20T026:PRINTNP$(A);P$(A) 


partendo dall’alto: la data in 
cui è stata effettuata l’ulti¬ 
ma registrazione della ta¬ 
bella, i versamenti e i prele¬ 
vamenti in C/C con il relati¬ 
vo saldo, i valori delle tre 
entrate e infine c’è la parte 
dedicata ai totali. Vengono 
infatti visualizzati in questa 
parte i totali delle entrate e 
delle uscite un eventuale 
saldo mesi precedenti, di cui 
parleremo in seguito. Con 
l’ultima voce di questa pri¬ 
ma pagina, a cui faranno se¬ 
guito le altre, si deve inten¬ 
dere la disponibilità in de¬ 
naro dell’utente, data dalla 
somma algebrica delle tre 
voci appena viste, alla quale 
andrebbe però aggiunta 
quella parte dell’attivo del 
C/C che non figura come en¬ 
trata nella tabella, ad esem¬ 
pio un giroconto non regi¬ 
strato nelle entrate. Pre¬ 
mendo il tasto “>” senza 
Shift si può accedere alle al¬ 
tre pagine video, dove sono 
visibili le uscite suddivise in 
categorie, una per pagina, 
che sono: spese generali, 
personali, spese per la casa 
e per l’auto, per un totale di 
26 voci d’uscita. 

In fondo ad ogni categoria è 
riportato il totale dato dalla 
somma dei valori di cui è co¬ 
stituita. Da ogni pagina è 
inoltre possibile tornare al 
menu con “M", e alla pagina 
precedente con oltre 
che andare avanti con “>”, 
come già visto. Chi non ha la 
stampante non può usufrui- 
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re della routine che permet¬ 
te la stampa della tabella in 
qualsiasi momento, in modo 
da avere, ad esempio, a fine 
mese un rendiconto delle 
entrate e delle uscite anche 
su carta. Questo programma 
è stato realizzato per tenere 
la contabilità domestica, 
mese per mese, quindi le va¬ 
rie voci ogni fine mese devo¬ 
no essere azzerate, per po¬ 
ter inserire quelle relative 
al mese seguente. La routine 
che consente di fare tutto 
ciò è appunto il riporto fine 
mese, la n. 6 del menu, che 
provvede ad azzerare gli im¬ 
porti delle singole voci, me¬ 
no quelle relative al C/C, che 
come abbiamo detto sono 
14 


915 PRINT:TC-TC+VP(A):NEXT 
920 X-TC:G0SUB500:TC$-X$ 

925 PRINT"(3 CUR.GIUHSH T}{SH 0}(SH T}{ 
SH A } {SH L]{SH E } { SH SPCHSH S } {SH P 
} {SH E } {SH S } {SH El(SH SPCHSH C } { SH 
A } { SH SHSH A H 2 SH SPCHSH L } . { 3 S 
PC}”;TC$ 

930 F0RA-0T039: PRINT"-'" ; :NEXT 
935 PRINT" {CUR .GIUHCUR .DES}<--M 1 SPC}[ 
M-MENU ]{10 SPC}FINE{CUR.SU}" 

9H0 R$-"":GETR$ 

9^5 IFR$<>","ANDR$<>"M"THEN9H0 
950 IFR$-"M"THEN1«5 
955 IFR$-" ."THEN795 

960 PRINT" { CL R } (3 CUR . GIU } 15 CUR.DESHRV 
S ONHSH A} ( 2 SH G}{SH I } {SH 0}{SH R 
} { SH NHSH A } {SH M } {SH E}{SH N } { SH T 
} { SH 0} {SH SPC } {SH THSH A}{SH B}{SH 
E } {2 SH L } {SH A}{RVS OFF}{CUR.GIU}" 
965 PRINT"{5 CUR.DES}MESE DI{2 SPC}";ME$ 
(MM) 

970 PRINT" {5 CUR.GIUJH» CUR.DES}0{7 SPC} 
VIDEO" 

975 PRINT" {2 CUR.GIU} {*1 CUR.DESH17 SPC} 
VIDEO E STAMPA" 

980 R$«"" :GETR$ : I FR$-= " "THEN9 80 
985 IFR$<>"0"ANDR$<>"1"THEN980 
990 B-VAL(R$):IFB-0THEN1 060 
995 PRINT" {CLR} {8 CUR.GIUH9 CUR.DESHRV 
S ON } {SH A } { 2 SH CHSH E}{SH N } { SH D 
} {SH IHSH SPCHSH L} {SH A}{SH S PC } { 
SH S } { SH T } {SH A } { SH M}{SH P } {SH AH 
SH N } {SH T} {SH E } {RVS OFF}{CUR.GIU}" 

1 000 PRINT"{18 CUR.DES} {SH EJ {CUR . GIU}": 
PRINT"{9 CUR . DES}{SH P}{SH 0}{SH S} 
{SH I } {SH Z} {SH I} {SH 0}{SH N}{SH A 
}{SH SPCHSH IHSH L} {SH SPCHSH F} 
{SH OHSH G } {SH L } { SH I}{SH 0 } { 7 CU 
R.GIU}" 

1005 PRINT"{2 CUR.GIU}{6 CUR.DES}PREMI R 
ETURN PER CONTINUARE{CUR.SU } " 

1010 R$-"":GETR$:IFR$<>Z$THEN1010 

1015 0PEN5 , **, 7 

1020 PRINT#5,TAB(3)CHR$(18)"{SH A } {2 SH 
G } {SH IHSH 0 } { SH R } {SH N}{SH A}{SH 
M}{SH E}{SH N}{SH T}{SH 0}{SH SPC} 
{SH T}{SH A}{SH B}{SH E}{2 SH L}{SH 
A}{SH SPC}{SH M}{SH E}{SH S}{SH E} 
{SH SPC } {SH DHSH I} { SH SPC}";CHR$( 
U6)"{2 SPC}"ME$ (MM ) 

1 025 PRINT#5 , "{SH OjPERAZIONI EFFETTUATE 
IL{2 SPC}"GG"/"MM"/";AA 
1030 FORA-0TO62 
1 035 PRINT#5,"- n 5 :NEXT 

1040 PRINT#5:PRINT#5," {SH M}{SH 0}{SH V 
}. !{H SPCHSH V} {SH OHSH C}{SH E} 


----- 










{4 S PC } ! {3 SPC }{ SH I}{ SH M}{SH P }{ S 
H 0}t SH R }{SH T}{SH 0}{3 SPC}!{2 SP 
OISH I } { SH M } { SH P}. {SH P}{SH R}{ 
SH E}{SH C } . {2 SPC) !"; 

1045 PRINT#5 , "{4 SPC}{SH T}{SH 0}{SH T}{ 
SH A} {SH L}{SH E}" 

1050 F0RA-0T06*2:PRINT#5,"-";:NEXT 
1055 PRINT#5:CLOSE5 

1060 PRINT"{CLR}{CUR.DES}{CBM L}{3 CUR.D 
ES} {SH EHSH LHSH-EHSH N}{SH C}{S 
H 0}{SH SPC}{SH V } {SH 0}{SH C } {SH I 
} { SH SPC } {SH P J{SH E } {SH R}{SH SPC) 
{SH A} {2 SH G}{SH I}{SH 0}{SH R){SH 
N}{SH A}{SH M}{SH E}{SH N}{SH T}{S 
H 0}"SPC(4)"{CBM J}" 

1065 PRINT"{CUR.DES}{CBM L}"; 

1070 FORA-0TO35:PRINT"-";:NEXT 
1 075 PRINTMCBM J}":PRINT" {CBM L}{10 SP 
C}{SH C) - {RVS ON}{SH C}/{SH C) {S 
H B}{SH A}{SH N}{SH C}{SH A}{SH R}{ 
SH I}{SH 0}{RVS OFF}{10 SPC}{CBM J) 
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PRINT"{CUR.DES}{CBM L) 1-! ";CA$"{2 

SPC}{CBM K}{2 SPC}2-! ";CP$"{2 SPC 
} {CBM J}" 

PRINT"{CUR.DES}{CBM L}";:F0RA-0T035 
: PRINT" - '" ; : NEXT 
PRINT"{CBM J}":F0RA-0T01 6 
PRINT"{CUR.DESI{CBM L}"SPC(3)"!"SPC 
(13)"{CBM K}"SPC(4)"!"SPC(13)"{CBM 
J}": NEXT 

PRINT"{CUR.DES}{CBM L}";:FORA=0TO35 
PRINT"-"; :NEXT 

PRINT"{CBM J}":PRINT"{CUR.DES}{CBM 
L}"TAB(38)"{CBM J}" 

1115 PRINT"{2 CUR.DES}";:FORA-OTO35 :PRIN 
T"{CBM Y}"; :NEXT 

1120 K-3:G0SUB125:PRINT"{7 CUR.DESHSH E 
} - {RVS ON}{SH E}{SH N}{SH T}{SH R 
}{SH A}{SH T}{SH E}{RVS OFF}{CUR.GI 
U}" 

1125 F0RA-1T03:PRINT"{2 CUR.DES}" ; A ;"{CU 
R.SIN}-{2 CUR.DES}";NA$(A):NEXT 
1130 PRINT"{2 CUR.DES}"; :FORA-OTO16 :PRIN 
T"-"; :NEXT 

1135 PRINT : PRINT" {7 CUR.DESHSH U} - {RV 
S ON}{SH U } {SH S}{SH C } {SH I}{SH T} 
{SH E}{RVS OFF}{CUR.GIU}" 

1140 F0RA-1T09 : PRINT"{2 CUR . DES } " ; A ;"{CU 
R . SIN } -{2 CUR.DES}";NP$(A):NEXT 
1145 K-3:G0SUB125 :FORA-10T026 
1150 PRINTTAB{20 ) ; A ;"{CUR.SIN}-{2 CUR.DE 
S}" ;NP$(A):NEXT 

1155 PRINT" {CUR.GIU} {2 CUR.DESHSH P}{SH 
R } {SH E } {SH M}{SH ì} {SH SPC}{SH 1} 
{SH L}(SH SPC } {SH T } {SH A}{SH S}{SH 


1 080 


1 065 

1090 

1095 


1 100 
1105 
1110 


parte a se stante. Incremen¬ 
ta inoltre la variabile MP, 
relativa alla voce “saldo me¬ 
si precedenti”, del valore da¬ 
to dalla somma algebrica 
delle entrate e delle uscite. 
Questa routine inoltre prov¬ 
vede a registrare la tabella 
sotto il nome del mese se¬ 
guente, in quanto il nome 
del file che viene assegnato, 
come già specificato, è quel¬ 
lo del mese in cui si registra 
la tabella. 

L’ultima opzione del menu, 
infine, è la fine elaborazione 
che chiuderà speriamo, il 
mese in attivo. 


Tratto dalla rivista “Bit" 
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T}{SH 0}{SH SPCJlSH D}{SH E}{2 SH 
L}{SH A } {SH SPCHSH V } ( SH 0}{SH C}{ 
SH E } {SH SPC } {SH D}{SH E}{SH S}{SH 
I } {SH D}{SH E } {SH R}{SH A}{SH T}{SH 
A}" 

1160 PRINTSPC(27)"[ M - MENU ]{CUR.SU}": 
F-0:R-0 

1 T65 R $ »"":GETR$:IFR$-""THEN1 165 
1170 IFR$<>"M"ANDR$<>"E"ANDR$<>"U"ANDR$< 
>"C"THEN1165 
1175 IFR$-"M"THEN145 
1180 IFR$-"E"THENF=1 
1182 IFR$-"C"THENR-1 
1185 FORA-0TO35:P0KE1946+A,32:NEXT 
1190 K-21:G0SUB125:IFF-1THENPRINT"{6 CUR 
.DESHRVS ONHSH E}(SH N} {SH T}{SH 
R } (SH A} {SH T}{SH E}{RVS OFF} :{4 C 
UR . DES } VOCE{2 SPC } N."; :G0T01205 
1195 IFR-1THENPRINT"{4 CUR.DESHRVS ON}{ 
SH C } /{SH C} (SH B}{SH A}{SH N}{SH 
C } { SH A}(SH R}{SH I>{SH 0}{RVS OFF} 
: {2 CUR . DES}VOCE N GOTO 1205 

1200 PRINT"{6 CUR.DES}{RVS ON}{SH U}{SH 
S}{SH C}{SH I}{SH T}{SH E}{RVS OFF} 
:{4 CUR.DES}VOCE{2 SPC}N."; 

1 205 R $ « "" :GETR$: IFR$-""THEN1 205’ 

1210 K-21 :G0SUB125 :PRINTTAB(28)R$; 

1215 C-VAL(R$):IFF-1THEN1275 

1220 IFR-1THEN1295 

1225 C$-R$:IFC<1THEN1205 

12 30 R$-"":GETR$:IFR$-""THEN1230 

1235 IFR$-Z$THEN1260 

1 240 K-21 :G0SUB125 :PRINTTAB(29)R$ 

1 245 C-ASC(R$):IFC<48ANDC>57THEN1 230 
1250 C$-C$>R$:C-VAL(C$) 

1255 IFC>26THEN1205 

1260 S$»NP$(C ) :M-VP(C): V$-P$(C):G0SUB132 
0 

1265 VP(C)-0:P$(C)-C$:0T-0T+V 
1270 X-OT:G0SUB500:T2$-X$:G0T01060 
1 275 IFC< 1 0RO3THEN1 205 

1 280 S$-NA$(C):M-VA(C):V$-A$(C)rGOSUBI 3 2 
0 

1 285 VA(C ) - 0 : A $(C)-C$:TE-TE+V 
1 290 X-TE:G0SUB500:T1$-X$:G0T01 0 60 

1295 IFC<10RC>2THEN1205 

1296 IFC-2THEN1310 

1300 S$«CA$:M-CA: V$-BA$:G0SUB1320 
1305 BA$-C$:CA-0:GOT01060 
1310 S$-CP$:M-CP:V$-BP$:G0SUB1 320 
1315 BP$-C$:CP-0:GOT01060 

1320 PRINT"{CLR}{3 CUR.GIU}{SH A}{2 SH G 
}{SH I}{SH 0}{SH R}{SH N}{SH A}{SH 
M}{SH E}{SH N}{SH T}{SH 0}{4 SPC}{R 
VS ON}";S$;"{RVS OFF}" 

1325 PRINT"{3 CUR.GIU}{SH I}{SH M}{SH'P} 
{SH 0}{SH R}{SH T}{SH 0} {SH PlfSH 








R}{SH E}{SH C}.{4 SPCHSH L}. " ; V $ 

1 330 P R IN T " { 2 CUR.GIU}{SH I}{SH M}{SH P} 
{SH 0}{SH R}{SH T}{SH 0}{10 SPC}{SH 
L}.{2 SPC}" 

1335 PRINT"{2 CUR.GIU}{SH T}{SH 0}{SH T} 
{SH A} (SH L } { SH E } {1 1 SPCHSH L}.{2 
SPC } " 

1340 K-8:G0SUB125 :PRINTTAB(22)"{9 CBM P} 
{4 SPC}" 

1345 C$«"":S-22:0-0 

1350 R $ - " " :GETR$:IFR$-""THEN1 350 

1355 IFR$-CHR$(20)THEN1390 

1360 IFR$-Z$0RLEN(C$)«9THEN1405 

1365 IFR$-"/»THEN1340 

1 370 G-ASC(R$) :K-8:G0SUB125 

1375 PRINTTAB(S)R$ 

1380 IFG<480RG>57THEN1350 
1385 C$-C$+R$:S-S+1:GOTO1350 
1390 S-S-1:IFS<-22THEN1340 
1 395 K-8.-GOSUB1 25 : PR INTT A B ( S ) " {CBM P}"; 

1 4 00 C$-LEFT$(C$ ,LEN(C$ ) - 1 ) :GOTOI350 
1405 V-VAL(C$):X-V:G0SUB500:H$-X$ 

1410 F0RA-0T0 9 : POKE 1 4 4 5+ A , 32 :.NEXT 
1415 K-8:GOSUB125:PRINTTAB(20) ;H$ 

1420 O-M+V: X-0 

1 4 25 G0SUB500:C$-X$:K-11 :GOSUB125 
1 430 PRINTTAB(20 ) ;C$ - 

1435 PRINT"{4 CUR.GIU}{3 CUR.DES}CONFERM 
I { 2 SPCHS/N]?" 

1 4 40 R $ »"":GET R $:IFR$ = ""THEN1440 
1445 IFR$<>"S"ANDR$<>"N"THEN1440 
1450 IFR$-"N"THEN1320 
1452 IFR$-"S"ANDB-OTHENRETURN 
1 455 OPEN6,4,7 

1460 IFF-1THENPRINT#6," {SH E}{SH N}{SH 
T} {3 SPC}"; :GOTOI475 
1465 IFR-1THENPRINT06," {SH C}/{SH C}{3 
SPC}"; :GOTOI475 

1 470 PRINT#6," {SH U}{SH S}{SH C} {3 SPC} 
n • 

1475 PRINT#6,S$;SPC(1)H$;SPC(1)V$:SPC(1) 
C $ :CL0SE6 
1480 RETURN 

1485 PRINT"{CLR}{3 CUR.GIU}{11 CUR.DESH 
RVS ON } {SH S}{SH T}{SH A}{SH M}{SH 
P } { SH A } { SH SPC} { SH T } { SH- A } {SH B}{ 
SH E } {2 SH L} {SH A}{RVS 0FF}{8 CUR. 
GIU}" 

1490 PRINT"{8 CUR.DES} {SH P } { SH 0}{SH S} 
{SH I} {SH Z} {SH I } {SH 0 } {SH N}{SH A 
} {SH SPC} {SH I } {SH L} {SH SPC}{SH F 
} {SH 0 } {SH G } {SH L } {SH I } { SH 0}{CUR 
.GIU}":PRINTTAB(19)"E{CUR.GlU}" 

1495 PRINT"{8 CUR.DES}{SH A}{2 SH C}{SH 
E}{SH N}{SH D } {SH I}{SH SPC}{SH L}{ 
SH A } {SH SPC } {SH S}{SH T}{SH A}{SH 
M} {SH P} {SH A} {SH N} {SH T}{SH E}{5 


17 







t 





18 





1635 X-0:PRINT:F0RA-20T026:X-X+VP(A) 

1640 PRINTTAB(4)NP$(A);SPC(12)P$(A):NEXT 

1645 GOSUB500:PRINTTAB(4)"{SH T}{SH 0}{S 
H T}{SH A } {SH L}{SH E) {SH S}{SH P) 
{SH E } {SH S} {SH E}{SH SPC}{SH C}{SH 

A } {SH S } {SH A} {SH L } . ";SPC(22)X$ 

1646 FORA-0TO62:PRINT"-" ;:NEXT 

1 650 PRINT : PRINT:PRINT"{SH T}{SH 0}{SH T 
} {SH A } {SH L } {SH E) {SH SPC}{SH U}{ 
SH S) {SH C) {SH 1}(SH T}{SH E}{8 SPC 
} {SH L} . {2 SPC } ";T2$ 

1 655 PRINT" {SH T){SH 0}{SH T}{SH A}{SH L 
} {SH E} {2 SH SPCHSH E}{SH N}{SH T} 
{SH R } {SH A} {SH T } {SH E}{7 SH SPC}{ 
SH L} . {2 SPC}";T1$ 

1660 X-CA-CP:G0SUB500 

1665 PRINT"{SH S}{SH A}{SH L}{SH D}{SH 0 
}{SH SPC}{SH C}/{SH C}{SH SPC){SH B 
}{SH A}{SH N}{SH C } {SH A}{SH R}{SH 
I}{SH 0}{4 SPC}{SH L } . {2 SPC}";X$ 
1670 X-MP:G0SUB500 

1675 PRINT"{SH S}{SH A}{SH L}{SH D}{SH 0 
}{SH SPC}{SH M } { SH E}{SH S}{SH E} { S 
H SPCHSH P } {SH R } {SH E}{SH C } . { 6 S 
PC}{SH Lì .{2 SPC}";X$ 

1680 X»(TE-OT) +MP:GOSUB500:PRINT 
1685 PRINTTABC22)"{RVS ON} {SH E}{2 SH F 
}{SH E}{2 SH T}{SH I}{SH V}{SH A}{S 
H SPC}{SH D}{SH I}{SH S}{SH P}. {RV 
S OFF} {SH L}."SPC(4)X$ 

1690 PRINT#7:CL0SE7:G0T0145 
1 700 PRINT" {CLR } {3 CUR.GIUH9 CUR.DES}{R 
VS ON}{SH A}{2 SH Z}{SH E}{SH R}{SH 
A}{SH M}{SH E}{SH N}{SH T}{SH 0}{S 
H SPCHSH TllSH A} {SH B}{SH E} {2 SH 
L}{SH A}{RVS OFF}" 

1705 MP-MP+(TE~OT):X-MP:GOSUB500:MP $-X $ 
1710 PRINT"{5 CUR.GIU} {SH T} OT ALE ENTRA 
TE{2 SPC} {SH L} .";T1$LIST 
1715 PRINT"{CUR.GIU} {SH T}OTALE{2 SPC}U 
SCITE{2 SPC}{SH L } . ";T2$ 

1 720 PRINT"{3 CUR.GIU}{SH T }OTALE A RIPO 
RTO {SH L} . ";MP$ 

1 725 X-0:F0RW-1T03:VA(W)-0:X-VA(W) :G0SUB 
500:A$(W)-X$:NEXT 

17 30 FORW-1T026: VP(W) -0:X-VP{W):G0SUB500 
: P$(W)-X$:NEXT 

1735 X-0:TE-0:GOSUB500:T1$-X$ 

1740 X-0:OT-O:GOSUB500:T2$-X$ 

1 7 45 DP$-STR$(GG )•*■"/" + STR$(MM )♦"/" +STRI ( 
AA ) 

1 750 MM-MM+1 : IFMM-13THENMM-1 
1755 PRINT"{3 CUR.GIU}{7 CUR.DES}{RVS ON 
} { SH RHSH E } { SH G } { SH I } { SH S}{SH 
T } {SH R}{SH A}{SH Z}{SH I} lSH 0}{SH 
N } {SH E } {SH SPC}{SH T}{SH A}{SH B} 
{SH E}{2 SH L}{SH A}{RVS OFF}" 
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SPRITE 



1 REM SPRITE12 

5 REM ATLETA CHE CORRE 

IO POKE56,36 :CLR:POKE53281 ,5 

20 DIMD(64),A$(3):VI-53248 

30 A$(0)-" " 

40 A$(1)-CHR$(l8)+CHR$(l44) + CHR$(32)«-CHR 
$(146) 

50 A$(2)-CHR$(18)*CHR$(158)+CHR$(32)+CHR 
$(146) 

60 A$(3)-CHR$(18)+CHR$(129) + CHR$(32)+CHR 
$(146) 

70 SP$-"{40 SPC}" 

100 FORNB-144T0150 

110 G0SUB9000:G0SUB9100 

120 NEXT 

130 PRIHTCHR$(147): FORI-1T09:PRINT:NEXT 

140 PRINTCHR$(18)CHR$(144)SP$; 

150 PRINTCHR$(1491 ; 
t 60 F0RI-1T06:PRINTSP$; :NEXT 

170 PRINTCHR$(18)CHR$(144)SP$; 

190 POKEVI+1,140:REM POSIZIONE VERTICALE 

200 POKEVI*23»1:REM ESPANDE IN ALTEZZA 

210 POKEVI+28,1 : REM SPRITE MULTICOLOR 

219 REM COLORE MULTICOLOR #0 (NERO) 




Presentiamo un semplice 
gioco per due persone. Esso 
consiste nel far mangiare al 
proprio omino il maggior 
numero possibile di palline. 
Per muovere Pomino, ogni 
giocatore usa un joystick; le 
palline vengono mangiate 
urtandole con la pancia. Per 
bloccare l’avversario si può 
usare il bottone del fuoco in 
qualunque momento, l’av¬ 
versario sviene per un breve 
periodo, ma perdi 5 palline. 
Le palline vengono distri¬ 
buite sul video in modo ca¬ 
suale. Nella parte alta del vi¬ 
deo viene visualizzato il 
punteggio. 

Tratto dal libro “Commodore 
64 la grafica e il suono” 
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220 

229 

230 
239 
2*10 
250 
260 
270 
280 
290 
300 
1 000 
1010 
1020 
1030 
1 OMO 
1050 
1060 
1070 
1080 
1090 
1 1 00 
1110 
1 1 20 
1 1 30 
1 1 40 
1150 
1160 
1170 
1180 
1 1 90 
1200 
1210 
1 220 
1230 
1240 
1250 
1 260 
1 270 
1 280 
1 290 
1 300 
1310 
1 320 
1330 
1 340 
1350 
1 360 
1 370 
1 380 
1390 
1 400 
1410 
1 420 
1430 
1 440 


(ARANCIO) 


#0 


POKEV1+37,0 

REM COLORE MULTICOLOR #1 
POKEV1 + 3 8,8 

REM COLORE SPRITE #0 (GIALLO) 
POKEVI+39,7 

POKEVI+21,1:REM ACCENDE SPRITE 

FORX-0TO6:FORI-0TO6 

POKE 20 40 f I♦144:Z-(X*7 + I)*7 

POKEVI,ZAND255: PONEVI* 1 6.Z/256 

FORR-1T0150:NEXT:NEXT:NEXT 

G0T0260 

DATA"{12 SPC}" 

DATA"(12 SPC)" 

DATA"{5 SPC}11{5 SPC)" 

SPC } 133(4 SPC)" 

SPC } 133{4 SPC)" 

SPC } 33(5 SPC}" 

SPC } 23(5 SPC}" 

SPC } 2 32{5 SPC}" 

SPC}2322{4 SPC}" 
SPC}2322{4 
SPC}2322{4 
SPC } 2322{4 
SPC } 1 311 {4 
SPC}1 1 1 1 {4 
SPC } 111{4 


DATA"(5 
DATA"(5 
DATA"{5 
DATA " {5 
DATA"{4 
DATA"{4 
DATA"{4 
DATA" (4 
DATA" { 4 
DATA" { 4 
DATA"{4 
DATA"(5 
DATA"{5 
DATA"(5 
DATA" {5 
DATA" {5 
DATA"{5 
DATA"{ 1 2 


SPC}" 
SPC}" 
SPC}" 
SPC}" 
SPC}" 
SPC} " 


SPC } 3 3 15 SPC}" 
SPC } 33{5 SPC}" 
SPC}22{5 SPC}" 
SPC}221{4 SPC}" 
SPC}111{4 SPC}" 
SPC}" 


D-A T A " {1 2 SPC}" 

DATA "{12 SPC}" 

DATA" {5 SPC}11{5 SPC}" 

DATA "{5 SPC } 133(4 SPC}" 

DATA "{5 SPC}133{4 SPC}" 
DATA"{ 5 SPC } 33 ( 5 SPC}" 

DATA" {3 SPCJ22332213 SPC}" 
DATA "{2 SPC } 3322223l3 SPC}" 
DATA" 33 22223(3 SPC}" 

DATA "(2 SPC)3322223(3 SPC}" 
DATA"{ 3 SPCJ332223333" 

DATA"{ 4 SPC}2222{4 SPC}" 
DATA"{ 4 SPC)1111(4 SPC}" 
DATA"{ 4 SPC}11111(3 SPC}" 
DATA" (3 SPC } 3331133(2 SPC}" 
DATA" 12233(3 SPC}333 " 

DATA "1223(5 SPCJ33 " 

DATA" 1(8 SPC}22 " 

DATA"{9 SPC } 22 " 

DATA"{ 9 SPCJ111" 

DATA "(12 SPC}" 

DAT A"(12 SPC}" 

DATA" (12 SPC}" 

DATA "{5 SPC}11(5 SPC}" 
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2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
21 1 0 
21 20 
21 30 
21 40 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
9000 
9010 

9020 
9030 
9040 
9050 
9100 
91 1 0 
9120 


D A T A"1 {8 SPC } 22 " 

DATA"{9 SPC }22 " 

DATA"{9 SPC } 111" 

DAT A"{12 SPC}" 

DATA"{12 SPC}" 

DAT A"{12 SPC}" 

DATA"{5 SPC}11{5 SPC}" 
DATA"{5 SPC}13 3 t 4 SPC}" 
DATA"{5 SPC } 133(4 SPC}" 

DAT A"{5 SPC}33(5 SPC}" 

DATA"{4 SPC } 222{5 SPC}" 
DATA"t 4 SPC } 2232{4 SPC}" 
DATA"{4 SPC}2232{4 SPC}" 
DATA"{4 SPC}2232(4 SPC}" 
DATA " {4 SPC}223333 (2 SPC}" 
DATA"{4 SPC } 2222{4 SPC}" 
DATA"{4 SPC}1111{4 SPC}" 
DATA"{4 SPC}1111{4 SPC}" 
DATA"{5 SPC}111{4 SPC}" 

DATA"{3 SPC} 1 2333{4 SPC}" 
DAT A " (3 SPC } 1 2333 l *1 SPC}" 

DATA"(3 SPC}1 22{5 SPC}" 
DAT A"t 5 SPC}22{5 SPC}" 
DATA"{5 SPC}111{4 SPC}" 

DAT A"{12 SPC}" 


DAT A "{12 SPC}" 

DATA"{12 SPC}" 

DATA"{5 SPC } 11 (5 SPC}" 

DATA"(5 SPC}133(4 SPC}" 

DATA"{5 SPC}133l4 SPC}" 

DATA"{5 SPCJ3315 SPC}" 

DATA"{4 SPC}222{5 SPC}" 

DATA"{3 SPC}33222{4 SPC}" 

DATA"(2 SPC}332222{4 SPC}" 

DATA"{3 SPC}33222{4 SPC}" 

DATA "{4 SPC}332233{2 SPC}" 

DATA "{4 SPC}2222{4 SPC}" 

DATA"{4 SPC}1111{4 SPC}" 

DATA" {4 SPC}111114 SPC}" 

DAT A"t 3 SPC } 331 1 3313 SPC}" 

DAT A"{2 SPC}333 l 2 SPC } 333 l 2 
DATA" 233(4 SPC1233 " 

DATA"222{4 SPC}122{2 SPC}" 

DATA"12{5 SPC}12{3 SPC}" 

DATA" 11(5 SPC}1(3 SPC}" 

DATA"(12 SPC}" 

PRINT"{CLR}":FORI-0T020:READA$ 
FORJ-0TO2:FORK-1T04:B$-MID$(A$,J*4+ 
K, 1 ) 

R-VAL(B$):PRINTA$(R); 

BY-BY«4+R:NEXT 

D (I*»3*J>-BY:BY-0sNEXT: PRINT :NEXT 
RETURN 
FORI-0TO62 
P0KENB*64+I,D(I) 

NEXT: RETURN 


SPC} 




BOTTI ROTOLANTI 


Fate quanti più punti potete 
scalando i ripiani, ma atten¬ 
zione alle botti che cadono. 
Lo scopo di questo gioco è di 
salire un labirinto di ripiani 
raggiungendo sani e salvi la 
cima. Ma qualcuno (che voi 
non potete vedere) fa rotola¬ 
re grosse botti nella vostra 
direzione. 

Partite dalla base dello 
schermo con il primo dei 
quattro giocatori. Usate il 
tasto A per spostarvi verso 
destra. Quando vi trovate al 
di sotto di una apertura nel 
ripiano, il tasto f3 vi per¬ 
mette di saltare al ripiano 
successivo. Potete creare, in 
qualsiasi momento lo desi¬ 
deriate, una apertura pre¬ 
mendo il tasto fi, ma in que¬ 
sto modo abbassate il vostro 


punteggio. Se raggiungete il 
ripiano superiore, ricomin¬ 
ciate alla base dello scher¬ 
mo successivo. 

Il punteggio viene aggiorna¬ 
to quando raggiungete il ri¬ 
piano superiore o quando 
una botte raggiunge il fondo 
dello schermo. 

Dopo le prime due scherma¬ 
te, il numero dei barili viene 
selezionato casualmente, il 
che influenza la velocità del 
gioco, ogni volta che appare 
una nuova schermata, le 
aperture tra i ripiani vengo¬ 
no piazzate casualmente. A 
volte troverete un ripiano 
privo di apertura, e dovete, 
necessariamente, utilizzare 
fi per aprirvi la strada. 

Tratto da "Paper Soft” 


100 PRINT"{CLRJtCYAN)(3 CUR.GlU}(3 SPC}S 
TO RI DEFINENDO IL SET DI CARATTERI" 

110 G0T0390 

120 REM SALTO UOMO 

130 POKEEt.39 

1M 0 FORX-1TOZ*:GOSUB250:IFPEEK(B*(X))> 3 6 
ANDPEEKCBf(X)X40THEN910 
1 il5 IFPEEK(B*(X) + D(X) ) >36ANDPEEK ( B* ( X )+D 
(X) X40THEN91 0 

1 M 7 IFPEEK(B%(X)-1)>36ANDPEEK(B*(X)-1)<i1 
0THEN910 

150 GOSUB310 :NEXTX 
160 POKEEj,37 
170 POKES.P 












180 P-P + 3 
190 POKEE*,38 

200 F0RX-1T0Zt:G0SUB250:IFPEEK(Bt(X))>36 
ANDPEEK(BXX) X40THEN910 
203 IFPEEK(B*(X)+D(X))>36ANDPEEK(B$(X)+D 
(X) X40THEN910 

205 IFPEEK(B%(X)-1)>36ANDPEEK(B%(X)-1X4 
0THEN910 
210 GOSUB310:NEXTX 
220 IFPEEK(EX-40)-LLTHEN910 
2 30 POKEE %,32 :E%-Ej-40:POKEE %,38 :POKES,0 
:POKEEH,32:Et-E*-40:P0KEE$,38:RETURN 
240 REM MOVIMENTO BOTTI 
250 POKES♦1 ,0 
260 POKEBX(X) ,C 

270 IFPEEK(B%(X)+I$)-WTHENB$(X)«B$(X)+D( 
X) 

2 80 IFPEEK(B% C X))-WTHENB*(X)-B % (X)-T* * D( 
X) 

2 90 IFPEEK(Bj(X) + I$X>WTHENBt(X)-Bt(X)*I 

% 

300 RETURN 

310 POKEBt(X),LL 

320 IFBX(X)>JTHENG0SUB350 

330 RETURN 

340 REM RIPOSIZIONAMENTO BOTTI 
350 F0RX-1T0Z*:POKEBt(X) ,C:B*(X)-SR+INT( 
RND(X)«T%):NEXTX 
360 REM PUNTI 

370 PRINT"{HOME}{23 CUR.GIU}{RVS ON}PUNT 
I{4 SPC } {4 CUR .SIN}"SC;"{9 SPC}{6 CU 
R.SIN}" ; 

380 F0RQ-3T0A+1STEP-1 :PRINT"{RVS 0 F F } t" ; 

:NEXT:PRINT"{HOME}": RETURN 
390 POKE53281,0:P0KE53280,6 
400 P0KE56,48 :CLR 

410 POKE56334, PEEK(56334 )AND254:POKE1 ,PE 
EK(1 ) AN D251 

420 BL$*"{RVS ON}{YELLOW}{40 SPC}" 

430 AL$-"{RVS OFF) {PURPLE}$$$$$$$$$$$$$$ 

$$$$$$$$$$$$$$$$$$$$$$$$$$" 

4 40 FORI-0T01 023:P0KEI + 12288, PEEK( 1+532 4 
8):POKEI+13312,PEEK(I+53248):NEXT 
450 P0KE1 , PEEK(1 )0R4 
460 POKE56334,PEEK(56334)OR1 
4 70 P0KE5 327 2,(PEEK(53272)AND240)+12 
480 FORI-12544T012544+8*8-1:READA:POKEI, 
A :NEXT : G0SUB1080 

4 90 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
56,108,206.174,234,230,108,56 
500 DATA56,1 08,2 4 6,250,1 34,222,1 08,56: RE 

M BOTTE 

510 DATA255,153,189,153.255,0,0,0:REM TR 

AVE 

520 DATA56,56,1 6,56,84,1 6,56,40 : REM UOMO 
IN POSIZIONE NORMALE 








530 DATA186,186,84,56,16,16,56,40,0,0,0, 
56,56,1 6,1 24,1 70 
540 SR-1025 :K-55296-SR+1 

5 50 J-SR + 820 : V-54269:S-54272 : FORI-ST0V:P 
OKEI,0:NEXTI 

5 60 POKEV , 15 :POKES + 5,130:POKES+6,72 
570 SR-1025:K-55296-SR+1 
580 PRINT"{CLR}":A-0:SC-0:Zt-4 
590 REM INIZIALIZZAZIONE SCHERMO 
600 PRINT"{CLR}";:BL-80 

610 F0RI-1T010:PRINTBL$;AL$;:NEXT:PRINTB 
L$;BL$;"{HOME}" 

620 X-SR + 39:POKES + 4,33 :POKES+24,15 

630 F0RB-1T0BL 

640 R-INT(RND(X)*908) 

650 POKEX + R,32 :POKEX + R + K,7 :P0KES+1 ,B+10: 

NEXT : POKES+4,0 
660 POKES + 4,17 :F0RG--1 T020 
670 P0KEX + G»40,36:P0kES+1 ,50+(G»2):P0KEX 
+ G* 40 + K,5 

680 P0KEX+39 + (G*40),36:POKES+1,0:POKEX+3 
9+(G*40)*K,5:NEXTG:POKES+4,0 
690 REM CICLO DI PREPARAZIONE 
700 E%-J : D( 1 )-1 : D ( 2 ) -■' 1 :D(3)-1 :D(4)--1 :L 
-1:LM-10:RM-l8:UP-5:BM-4:0-0 
710 W-36:C-32: KB-197:T%-38:I*-40:LL-34:D 
-37:Z-245:P-128:TT%-1:THJ-3:G0SUB350 
720 REM CICLO PRINCIPALE DEL GIOCO 

7 30 F0RX-1T0Z*:G0SUB250:IFPEEK(B*(X) )>36 

ANDPEEK(BJ(X)X40THEN910 
735 IFPEEK(B%(X)+D(X))>36ANDPEEK(B%(X)+D 
(X) X40THEN910 

737 REM IFPEEK(B$(X-1)>36ANDPEEK(BJ(X) 
-1THEN910 

740 GOSUB310:NEXTX 

750 IFPEEK(E*)-LLTHENE*-EX+40:P0KEE%+K,7 
:POKEE J♦ IH,36 :POKEEj + It + K,4 :G0T0910 
760 IFPEEK(E*-I$)-LLTHEN910 
77 0 IFPEEK(Et + It)-LLTHENP0KEE% ,C : Et“E J + 8 
0 : G 0 T 0 9 1 0 

780 IFLL-34THENLL-35:G0T0800 
790 LL-34 
800 POKEEt.C 

810 IFPEEK(KB)-LMTHENIFPEEK(Et-LX>WTHEN 
Et-Et-L : POKEEt , D:YG--2 : G0TÒ850 
820 IFPEEK(KB)-RMTHENIFPÉEK(E* + LX>WTHEN 
Et-Et+L:P0KEEt,D:YG-2:GOTO850 

8 30 IFPEEK(KB)-BMTHENIFPEEK(E»-'It)-WTHEN 

P0KEE*-I*,C:SC-SC-5:P-P-*10 
840 IFPEEK(KB)-UPTHENÌFPEEK(E*-I*X>WTHE 
NG0SUB1 30:SC-SC + L + L:P-P + 3: P 0 K E E % ", D 
850 IFP>ZTHENP-128 

860 POKEEt,D:POKES+4,17:POKES+1,40 
870 IFEt<SRTHENEt-J:TTt-TT*+L:G0SUB370: I 
FSC>35THENZ>-RND(X)«4-f 1 
IFTT*>THJTHENG0T0600 
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890 G0T0730 

900 REM PERDITA DELL' UOMO 
910 POKES+4,129:N-15:POKES,39:POKES*1 ,09 
:F0RQ-1T04:P0KEB*(Q), 32:NEXT 
920 POKEE*, 38: POKEE *-»40,34 :G0SUB1 190:POK 
EE* , 37 :GOSUB1190:POKEE*,39 :G0SUB1190 
930 POKEE*-40,194:POKEE*,35:GOSUB1190:PO 
KEE**1 ,173tPOKEE*-1 , 173 :POKEE*♦40,19 
4 

940 POKEE*-39,206 :POKEE*-41 ,205 
950 POKEE*+ 41 ,205 : POKEE**39,206 :GOSUB119 
0 

960 POKEE*-120,174:POKEE*->2,174:POKEE* + 2 
,174: POKEE**1 20,1 74:GOSUB1190 
970 POKEE*-'78,1 74 

980 POKEE*-78,1 74 :POKEE* + 7 8,174 :P0KEE**8 
2,174:GOSUB1190 

990 SC-SC-8:POKES+4,12 8 : A - A ♦ 1:GOSUB370 
1000 TT*-1: I FA<3GOT0600 

1010 PRINT"{CLR}(9 CUR.DES}{9 CUR.GIU}"; 
1015 P0KE198,0 :PRINT"{RVS 0N}{5 SPCjFINE 
GIOCO" 

1018 PRINT"{CUR.GIU}{RVS OH}{14 SPCjPUNT 
I- " ; SC 

1020 PRINT"{RVS ON}{CUR.GIU}{5 SPCJPREMI 
LA BARRA PER C0NTINUARE{6 SPC}" 
1030 PRINT"{RVS ON}{CUR.GIU}{2 SPCJQUALS 
IASI ALTRO TASTO PER TERMINARE" 

1040 GETYY*:IFYY$-""THEN1040 
1050 IFYY$<>" "THENPRINT"{CLR}":END 
1060 G0T0580 
1070 REM • » 

1 080 PRINT"{CLR}{3 CUR . GIU}":PRINTTAB(10 
^'•ISTRUZIONI»":PRINT 
1090 PRINTTAB(9)"{RVS ON}A{RVS OFF} MUOV 
E A SINISTRA":PRINTTAB(9)"{RVS ON}D 
{RVS OFF} MUOVE A DESTRA" 

1100 PRINT:PRINTTAB(9)"{RVS 0N}F3{RVS OF 
F} FA SALIRE DI UN PIANO" 

1110 PRINTTAB(9)"{RVS 0N}F1{RVS OFF} CAN 
CELLA LO SPAZIO SUPERIORE" 

1120 PRINT:PRINTTAB(9)"{3 SPC}» »PUNTI » *" 
1130 PRINT:PRINTTAB(9)"2 PER OGNI NUOVO 
PIANO":PRINTTAB(8)"-5 USANDO LA PUL 
IZIA " 

1140 PRINT:PRINTTAB(8)"-8 OGNI VOLTA CHE 
VI COLPISCONO" 

1150 PRINT"{3 CUR.GIU}":PRINTTAB(13)"PRE 
MI LA BARRA" 

1160 GETXX*: IFXX$-""THEN1160 
1170 RETURN 

1180 REM SOTTOPROGRAMMA TEMPO E SUONO PE 
R LA PERDITA DELL' UOMO 
1190 N-N-2:IFN<0THENN-0 

1200 IFPEEK(E*)-380RPEEK(E*)-39THENF0RQ- 
1T050:NEXT 

1210 F0RQ-1T025:NEXT:RETURN 




CARATTERI GIGANTI 


Questa breve routine in lin¬ 
guaggio macchina espande 
un carattere, facendolo ap¬ 
parire sullo schermo quat¬ 
tro volte più grande rispetto 
alla misura normale. I ca¬ 
ratteri giganti possono com¬ 
porre titoli o essere usati 
per una grande varietà di al¬ 
tri scopi. Il programma, è 
compatibile con tutte le 
stampanti Commodore. 
Caratteri giganti possono 
servire per comporre titoli, 
per insegnare l’alfabeto ai 
bambini in programmi edu¬ 
cativi o per molte altre cose 
ancora. Potreste costruire 
tali caratteri per mezzo dei 
simboli grafici disponibili 
sulla tastiera del vostro 
computer, ma per fare ciò 
sono necessarie molte prove 
e molto tempo; inoltre crea¬ 
re un intero alfabeto com¬ 
porterebbe un grande spre¬ 
co di memoria. 

Il modo più semplice per 
mostrare una lettera enor¬ 
me, senza fare prove labo¬ 
riose o usare molta memo¬ 
ria, è quello di leggere, tra¬ 
mite istruzioni PEEK, l’area 
di memoria ROM generatri¬ 
ce di caratteri e stampare 
uno spazio pieno (cioè in re- 
verse) per ogni bit che vale 
1; se invece il bit vale 0, si 
stampa uno spazio sempli¬ 


ce. Lo svantaggio principale 
di questo metodo è che ogni 
carattere visualizzato sa¬ 
rebbe otto volte più grande 
di uno normale, occupando 
un’area di ben 64 spazi, che 
è decisamente eccessiva. 
Provate a battere la sequen¬ 
za IKBVDCF tenendo premu¬ 
to il tasto Commodore. I set¬ 
te caratteri che appaiono 
sullo schermo, assieme allo 
spazio, formano metà del set 
grafico “quarto di quadrato"; 
l’altra metà si ottiene pre¬ 
mendo gli stessi tasti in mo¬ 
do reverse. Abbiamo così in 
totale 16 caratteri, uno per 
ogni possibile combinazione 
dei quattro “quarti di qua¬ 
drato” accesi o spenti. 

Questi simboli grafici ci per¬ 
mettono di costruire uno 
schermo a media risoluzio¬ 
ne, meno complicato da pro¬ 
grammare di quello ad alta 
risoluzione e in ogni caso 
più potente del sistema a 
bassa risoluzione illustrato 
precedentemente. Invece di 
comandare l’accensione di 
caratteri interi, si controlla¬ 
no dei grandi “pixel” (punti 
dello schermo), ognuno dei 
quali è grande un quarto di 
un carattere intere. 

La risoluzione del C64 di¬ 
venta 80x50. Questo è il 
concetto su cui è basato il 


programma che vi presen¬ 
tiamo. Il procedimento se¬ 
guito consiste nel leggere la 
ROM dei caratteri e tradurre 
ogni bit in un “megapunto", 
stampando il corrisponden¬ 
te carattere grafico “quarto 
di quadrato”. Si potrebbe far¬ 
lo in BASIC, utilizzando una 
gran quantità di PEEK e di 
POKE, ma il linguaggio mac¬ 
china è decisamente più ve¬ 
loce ed elegante. Il program¬ 
ma è facile da usare: dopo 
averlo digitato e salvato, 
battete RUN. Una breve rou¬ 
tine in linguaggio macchina 
viene memorizzata tramite 
istruzioni POKE; per atti¬ 
varla dovete effettuare due 
POKE e un comando SYS: 
P0KE249,0 : POKE250.1 : 
SYS828 





A questo unto dovrebbe ap¬ 
parire una grande “A” maiu¬ 
scola, larga quattro caratte¬ 
ri e altrettanto alta. Provate 
ora a premere simultanea¬ 
mente Commodore e SHIFT 
per ottenere il set minusco¬ 
lo, tornate col cursore sulla 
linea contenente le POKE e 
premete RETURN: in tal mo¬ 
do apparirà una grande “a” 
minuscola. Se poi modificate 
in 129 il valore memorizza¬ 
to nella locazione 250, allo¬ 
ra la lettera gigante appari¬ 
rà in reverse. Una volta che 
avete salvato il programma, 
e lo avete fatto girare, batte¬ 
te NEW per cancellarlo (ciò 
non influirà sulla routine in 
linguaggio macchina, che è 
memorizzata nel buffer di 
cassetta). Digitate le se¬ 
guenti linee: 

10 MK = 7 
20 PRINT “[CLR]”; 

30 FORX = 0T0255 

40 Y = (XANDMK)* 4:P0- 

KE249, Y 

50 IFXANDMK THENPRINT 
“[4 SU]”; 

60 POKE250,X:SYS828 
70 NEXT 


Battete RUN e l’intero set di 
caratteri Commodore sfilerà 
sullo schermo. Attenzione: 
non potete salvare questo 
programmino di esempio su 
nastro, in quanto ogni ope¬ 
razione effettuata usando il 
registratore cancella la rou¬ 
tine dal buffer di cassetta. 

La parte alta del carattere 
gigante compare nella posi¬ 
zione in cui si trova il curso¬ 
re al momento in cui viene 
eseguito il comando SYS; il 
valore memorizzato tramite 
POKE nella locazione 249 
determina di quanti spazi 
deve avanzare il cursore 
prima della stampa. Questo 
numero deve essere compre¬ 
so tra 0 e 35. 

Il numero che dovete poi 
memorizzare nella locazio¬ 
ne 250 è invece il codice di 
schermo (non il codice 
ASCII!) del carattere che vo¬ 
lete stampare. I valori tra 1 
e 26 sono le lettere A-Z, da 
48 a 57 abbiamo le cifre 0-9, 
e gli altri valori inferiori a 
128 corrispondono ai rima¬ 
nenti simboli sulla tastiera. 
Da 128 a 255 ci sono gli 
stessi caratteri in reverse; 
ad esempio, se volete una S 
dovete usare il codice 19, 
mentre per ottenere la S in 
reverse bisogna usare il co¬ 
dice 19+128=147. 

Dopo aver effettuato le PO¬ 
KE nelle locazioni 249 e 250 
digitate SYS 828 e il caratte¬ 
re gigante apparirà istanta¬ 
neamente. 


Tratto da 

“SuperComm odore ” n. 3/’85 



10 T-0:F0RJ-688T0703:READK:T-T+K:POKEJ,K 
: NEXT 

15 IFT<>3078THENPRINT"ERRORE NELLE ISTRU 
ZIONI DAT A ": END 

20 T-0 : F0RJ-828T01 006:READK:T-T+K:POKEJ, 
K : NEXT 

25 IFTO20306THENPRINT" ERRORE NELLE ISTR 
UZIONI DATA":END 
30 POKE249.0 

6 88 DATA 32,1 88,1 90,22 6,1 72,225,1 91 ,251 

6 96 DATAI 87,255,1 61 ,236,1 62,254,252,96 

828 DATAI 69,208,1 33.004,173,024 

834 DATA208,041 ,002,240,004,1 69 

840 DATA216,133.004,169,000,162 

846 DATA003.006,250,042,202,208 

852 DATA250,024,1 01 ,004,133.004 

858 DATA165,250,133,003,173,014 

864 DATA220,041,254,141,014,220 

870 DATA165,001,041,251,133,001 

876 DATA169,000,133,250,169,005 

882 DATAI 33.002,160,000,1 77.003 

888 DATAI 33.005,230,003.1 77,003 

894 DATAI 33,006,230,003.1 98,002 

900 DATA240,028,162,004,169,000 

906 DATA006,006,042,006,006,042 

912 DATA006,005,042,006,005,042 

918 DATA164,250,153,048,002,230 

924 DATA250,202,208,232,240,210 

930 DATA165,001,009,004,133,001 

936 DATA1 73,01 4,220,009,001 ,1 41 

942 DATA014,220,160,000,166,249 

948 DATA240,008,1 69 

951 DATA029: REM 032 USANDO LA STAMPANTE 

952 DATA032.210 

954 DATA255,202,208,250,169,004 
960 DATAI 33,006,1 85,048,002,170 
966 DATA189,176,002,133,005,041 
972 DATA064,240,005,169,018,032 
978 DATA21 0,255,1 65,005,041 ,1 91 
984 DATA032,210,255,169,146,032 
990 DATA210,255,200,198,006,208 
996 DATA221,169,013,032,210,255 
1002 DATA192,016,208,196,096 
1 003 PRINT"{CLR} {5 CUR.GIU} {WHITE}"TAB(9 
)"X - NUMERO TRA 0 E 35" 

1004 PRINTTAB(9)"(CUR.GIU}Y - NUMERO TRA 
0 E 255" 

1 005 PRINTTAB(9 ) "{3 CUR.GIU}POKE249 ,X{2 
SPC}(POSIZIONE)" 

1006 PRINTTAB(9)"{CUR.GIU}P0KE250,Y{2 SP 
C}(CARATTERE)" 

1007 PRINTTAB(9)"{CUR.GIU}SYS828{2 SPC}P 
ER ATTIVARE(2 CUR.GIU}" 
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MISSIONE ODESSA 

Preparate impermeabile e guanti. L’avventura questa 
volta vi introduce nel mondo cinico e pericoloso dello 
spionaggio, proponendovi una “spies’ story” del tutto 
particolare. Nessuno scontro tra i blocchi, nessun 
ordigno nucleare da scoprire e rendere innocuo e, 
purtroppo, niente belle pupe. Si tratta di scoprire i 
documenti segreti di ODESSA, una organizzazione che 
; ha lo scopo di permettere la fuga dalla Germania dei 

criminali nazisti. 

• Una missione al servizio della giustizia e della storia 

che non dovete fallire. 
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Crimini di guerra 

Ne “La svastica sul sole” un 
romanzo di fantascienza di 
Philip K. Dick, il Terzo 
Reich domina sul mondo oc¬ 
cidentale e i suoi capi si pre¬ 
parano a conquistare lo spa¬ 
zio per la gloria della “razza 
superiore”. Philip Josè Far- 
mer un altro prolifico auto¬ 
re di racconti fantastici, 
racconta nel “Ciclo del gran¬ 
de Fiume”, la conversione di 
Hermann Goering e la sua 
ricerca del Sacro Graal. 

Sono storie di universi pa¬ 
ralleli, racconti fantastici in 
cui una delle vicende più al¬ 
lucinanti e devastanti della 
storia dell’umanità e i suoi 
protagonisti, diventano il 
motivo per riflettere sulla 
natura dell’uomo. 

Ancor oggi, a più di 40 anni 
dalla sconfitta del nazismo, 
quei fatti sono parte della 
nostra vita e ancora oggi ci 


sono sono uomini che chie¬ 
dono giustizia, tra questi 
uno dei protagonisti di Mis¬ 
sione Odessa: Simon Wiesen- 
thal. 

Conosciuto in tutto il mondo 
come il più implacabile cac¬ 
ciatore di criminali nazisti, 
Wiesenthal è il direttore del 
Centro di Documentazione 
sui crimini di guerra a Linz, 
in Austria. 

La sua attività iniziò nel 
1944, subito dopo la libera¬ 
zione dal campo di stermi¬ 
nio, con lo scopo di scovare i 
gerarchi nazisti, i coman¬ 
danti dei campi, gli uomini 
della “soluzione finale”, il 
termine usato da Hitler per 
indicare il genocidio di 30 
milioni di ebrei europei. 

Il Centro di Documentazio¬ 
ne possiede il più grande ar¬ 
chivio di dati sulla persecu¬ 
zione, la deportazione e il 
massacro degli ebrei duran¬ 
te la seconda Guerra Mon¬ 


diale e una rete internazio¬ 
nale per l’individuazione e 
la cattura dei criminali na¬ 
zisti ancora latitanti. 
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Caccia alVuomo 

La vicenda si svolge nel 
1948. Il processo di Norim¬ 
berga ha definitivamente ri¬ 
velato ai tedeschi e al mon¬ 
do la vera natura del nazi¬ 
smo, i capi del regime ven¬ 
gono in gran parte, e spesso 
fortuitamente, catturati, ma 
sono molti quelli che, appro¬ 
fittando della confusione se¬ 
guita alla caduta del Reich, 
sono spariti dalla circola¬ 
zione o addirittura sono riu¬ 
sciti ad infiltrarsi in posti di 
responsabilità nelle nuove 
amministrazioni. 

Il paese distrutto dai bom¬ 
bardamenti, con l’economia 
a pezzi e il morale a zero è 
sotto il controllo degli Allea¬ 
ti che ne stanno decidendo il 
futuro. La spartizione della 
Germania tra est e ovest 
non è ancora avvenuta. Sia¬ 
mo a Berlino, l’ex capitale è 
divisa in 4 settori e l’azione 
si svolge in quello russo. 
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Wiesenthal riceve informa¬ 
zioni riguardanti ODESSA, 
una organizzazione creata 
con lo scopo di facilitare la 
fuga all’estero dei criminali 
nazisti. 

A partire dal 1947 l’organiz¬ 
zazione aveva creato una re¬ 
te d’informatori e di ritrovi, 


passando poi alla realizza¬ 
zione di complessi piani di 
fuga. Coperta da influenti 
protezioni, sia in Germania, 
che in altri paesi europei, 
ODESSA poteva operare con¬ 
tando sulla poca accuratez¬ 
za dei controlli e su una se¬ 
rie di itinerari sicuri verso i 





















porti dell’Europa del sud. Da 
qui i ricercati partivano per 
il Sud America dove faceva¬ 
no perdere le tracce con la 
complicità dei governi lo¬ 
cali. 

La casa 

del Borgomastro 

Nella sua attività Wiesen- 
thal ha come collaboratori e 
informatori persone soprav¬ 
vissute ai campi di stermi¬ 
nio, parenti delle vittime de¬ 
cisi ad avere giustizia e ex¬ 
nazisti che intendono ripa¬ 
rare alle loro colpe. 

David Liebermann, operaio 
di Stoccarda, salvato dalla 
camera a gas dall’arrivo de¬ 
gli alleati, è il miglior agen¬ 
te di Wiesenthal. Si erano 
conosciuti subito dopo la li¬ 
berazione e non avevano 
avuto difficoltà ad intender¬ 
si: quando il Centro di docu¬ 


mentazione iniziò la sua at¬ 
tività a Linz, in Austria, Lie¬ 
bermann venne chiamato a 
collaborare al lavoro d’inda¬ 
gine, diventando ben presto 
l’uomo più prezioso di Wie¬ 
senthal. 

Non è quindi un caso se una 
missione così delicata viene 
affidata a lui. 

I mille occhi e le mille orec¬ 
chie di Wiesenthal lavoran¬ 
do instancabilmente alla ri¬ 
cerca di informazioni sulle 
attività di ODESSA, scovano 
a Berlino, in una zona deva¬ 
stata dai bombardamenti, 
un vecchio stabile in rovina 
appartenuto al borgomastro 
(Gauleiter) e diventato ne¬ 
gli ultimi giorni del terzo 
Reich, un centro operativo 
delle SS, dove i membri 
deH’organizzazione nazista 
tengono le loro riunioni per 
architettare nuovi piani di 
fuga. 

Nella casa del Gauleiter, se¬ 


condo gli informatori, do¬ 
vrebbero trovarsi i docu¬ 
menti riguardanti le attività 
del gruppo, i piani e gli ar¬ 
chivi contenenti i nomi e i 
nascondigli dei gerarchi ri¬ 
cercati. 

Mettere le mani su materia¬ 
le di tale importanza signifi¬ 
ca distruggere ODESSA, 
smascherare i suoi contatti 
in Germania e all’estero e, 
soprattutto, catturare deci¬ 
ne di criminali di guerra. 
Durante la notte Lieberman 
viene accompagnato nella 
casa da un uomo di fiducia 
di Wiesenthal che gli dà ap¬ 
puntamento per il mattino 
seguente. L’operazione com¬ 
porta diversi rischi a causa 
dei controlli russi nella zo¬ 
na e perché, nelle prime ore 
del giorno dopo, è prevista 
una riunione déll’organizza- 
zione nazista. 

Il fattore tempo è importan¬ 
tissimo, la missione deve es¬ 
sere portata a termine pri¬ 
ma che le luci del giorno 
possano tradire la presenza 
di Liebermann nella casa ed 
evitando un poco gradito in¬ 
contro con i membri di 
ODESSA. 
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L’av\rentura 

Il gioco ha inizio nell’ufficio 
di Wiesenthal dove il diret¬ 
tore del Centro di Documen¬ 
tazione comunica a David i 
termini della sua missione. 
Questo incontro e il seguen¬ 
te, a Berlino con l’uomo che 
lo porterà alla casa sono in¬ 
troduttivi all’avventura: leg¬ 
geteli con attenzione e non 
fate domande. 

Al vostro arrivo nella casa 
in basso sul video compari¬ 
rà la frase “Cosa devo fare?”. 
I comandi vanno sempre ri¬ 
volti in seconda persona 
(fai questo, fai quello) e nel¬ 
la forma “verbo + (articolo) 
+ oggetto”. 

L’articolo può essere omes¬ 
so, ma in nessun caso è pos¬ 
sibile abbreviare comandi e 
nomi che, altrimenti, non 
verrebbero riconosciuti dal 
programma. 
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Le direzioni 

Sono quelle rappresentate 
dai 4 punti cardinali, più le 
direzioni verticali ALTO e 
BASSO che possono essere 
sostituite da SU e GIÙ. 

Per muoversi da una loca¬ 
zione all’altra basta comu¬ 
nicare al computer la dire¬ 
zione desiderata in forma 
completa o con la sola ini¬ 
ziale (es. NORD, N). 

Per gli spostamenti in verti¬ 
cale valgono anche i coman¬ 
di SALI e SCENDI. 


Inventario 

COSA, INVENTARIO e ? co¬ 
mandano l’elencazione degli 
oggetti che si stanno tra¬ 
sportando. Non è possibile 
portare più di 5 oggetti con¬ 
temporaneamente e quindi 
dovete tenere sempre d’oc¬ 
chio il vostro carico. 


Salvataggio 

La partita può essere inter¬ 
rotta in ogni momento e poi 
ripresa grazie all’opzione di 
salvataggio della situazione 
di gioco a cui si accede digi¬ 
tando il comando SAVE. In¬ 
serite la cassetta e confer¬ 
mate l’operazione tenendo 
conto che il file SITUAZIO¬ 
NE, contenente le informa¬ 
zioni di status del gioco, vie¬ 
ne salvato sempre con lo 
stesso nome, sarà così pos¬ 
sibile avere più file e quindi 
riprendere il gioco in condi¬ 
zioni diverse. 


Caricamento 

Avviene utilizzando in aper¬ 
tura di gioco il comando 
“LOAD”. Inserite la cassetta 
nel registratore assicuran¬ 
dovi che sia posizionata cor¬ 
rettamente, oppure il pro¬ 
gramma caricherà il primo 
file individuato. 


Qualche 

suggerimento 

Il programma è in grado di 
riconoscere un buon nume¬ 
ro di parole, alcune delle 
quali omologhe per quanto 
riguarda gli effetti. Leggete 
sempre con attenzione le de¬ 
scrizioni del computer ed 
eviterete di dover provare 
tutti i verbi della lingua ita¬ 
liana ad ogni nuova situa¬ 
zione. 

I documenti che dovete tro¬ 
vare sono: una lista di servi¬ 
zio contenente i nomi di 
1500 alti ufficiali delle SS, 
un piano di fuga elaborato 
alla fine della guerra ed uno 
attualmente utilizzato da 
ODESSA. 

La casa del Gauleiter è in 
cattive condizioni, fate at¬ 
tenzione quindi a dove met¬ 
tete i piedi, tantopiù che ra¬ 
zione si svolge di notte e 
muoversi al buio può essere 
pericoloso. 

Non potendo trasportare 
più di 5 oggetti dovrete or¬ 
ganizzarvi in modo d’avere 
a disposizione solo ciò che 
può risultare utile all’esplo¬ 
razione delle stanze. 


Raccogliete i documenti e gli 
strumenti utili in locazioni 
facilmente raggiungibili e 
lasciate subito gli oggetti 
che si riveleranno di poco 
interesse. 

Evitate i pericoli “naturali”, 
la vostra unica preoccupa¬ 
zione dovrà riguardare lo 
scorrere del tempo. I nazisti 
hanno fissato una riunione 
per la mattina e, dato che 
siete disarmati, un incontro 
con loro potrebbe risultare 
poco salutare. 

La missione non si conclude 
con il ritrovamento di tutti i 
documenti che state cercan¬ 
do: ricordatevi il luogo 
dell’appuntamento fissato 
con Ferenc (l’uomo di Wie- 
senthal a Berlino). 

Il superamento di ogni si¬ 
tuazione “scabrosa" è pre¬ 
miato da un incremento del 
punteggio che viene visua¬ 
lizzato dal comando PUNTI. 
Una precauzione che ogni 
giocatore d’adventure deve 
sempre prendere è quella di 
disegnare una mappa del 
luogo in cui si trova ad agi¬ 
re, con specificate direzioni 
e contenuti delle varie loca¬ 
zioni. Non fatevelo ripetere 
ogni volta! 

Se siete in preda alla dispe¬ 
razione e non vi raccapezza¬ 
te più, non vi resta che usa¬ 
re il comando FINE che, ap¬ 
punto, mette fine alle vostre 
tribolazioni. Un’altra solu¬ 
zione, meno vigliacchesca, 
potrebbe essere quella di at¬ 
tendere l’alba e farvi cattu¬ 
rare dai nazi: una bella mor¬ 
te eroica non ve la toglie 
nessuno. 


Istruzioni per 
il caricamento 
del programma 

Premere in sequenza il tasto 
J e i tasti SYMBOL SHIFT + 
P (Spectrum) o “(Spectrum 
Plus) due volte. Sullo scher¬ 
mo apparirà la scritta 
LOAD""; premere il tasto 
PLAY sul registratore e EN- 
TER sulla tastiera. 

Il programma verrà esegui¬ 
to automaticamente. 

In caso di mancato carica¬ 
mento, ripetere la procedu¬ 
ra dopo aver verificato la 
corretta connessione tra re¬ 
gistratore e computer e il li¬ 
vello del volume. 



Guida all’input Spectrum 


Per evitare errori nella 
riproduzione dei listati, abbiamo 
sostituito i simboli grafici tipici 
dello Spectrum con alcuni codici . Per 
battere i listati che pubblichiamo 
occorre dunque ricordarsi quanto 
scriviamo qui sotto . 


I caratteri grafici compaiono nei listati in 
forma abbreviata, racchiusi in parentesi graffe. 
Il primo carattere all’interno della 
parentesi rappresenta, se si tratta di un 
numero, le volte che devono essere battuti 
simboli dello stesso tipo; se omesso tale numero 

è inteso uguale ad uno. 

Il tipo di carattere grafico è invece presentato 
nel seguente modo: gx, con x numero 
compreso tra 1 e 8, indica i caratteri grafici 
predefiniti ottenuti premendo i corrispondenti 
tasti, gsx, per quelli disponibili premendo 
contemporaneamente CAPS SHIFT. 

I caratteri grafici definibili (caratteri da A ad U 
in modo grafico) sono stampati in maiuscolo. 






ATTACCO ALLA TERRA 


Forse non è troppo tardi! 
Anche se i marziani sono 
già atterrati in gran nume¬ 
ro sui tetti della vostra città 
e molti continuano ad arri¬ 
vare, potreste compiere il 
miracolo e salvare la specie 
umana. 

Questo efficientissimo pro¬ 
gramma si avvale di tre rou- 
tines in linguaggio macchi¬ 
na principali e di altre due 
’di servizio’, è dotato di tre 
quadri di presentazione, di 
una grafica estesa, e memo¬ 
rizza il miglior punteggio da 
voi realizzato. 

Durante il gioco, conducete 
una maneggevolissima 
astronave dotata di laser e 
di tre bombe anti-alieno ca¬ 
paci di distruggere solo i ne¬ 
mici, senza compromettere 
la vita dei cittadini. Nel 
muovervi dovete evitare gli 
alieni, gli edifici, e la parte 
alta dell’atmosfera divenuta 
ormai radioattiva. 

Potete invece rifornire i vo¬ 


stri laser di energia toccan¬ 
do le apposite stazioni di ri- 
fornimento. La battaglia 
continuerà nei cieli sino a 
quando non avrete perso 
l’ultima astronave: in que¬ 
sto caso non prendetevela, 
avete fatto senz’altro tutto il 
possibile. 

“Attacco alla terra" gira sen¬ 
za problemi su ogni ZX 
Spectrum versione 3. Se ave¬ 
te una versione 2 (ve ne ac¬ 
corgerete constatando l’im¬ 
possibilità di usare i tasti di 
movimento previsti nel gio¬ 
co), per poter giocare dovre¬ 
te sostituire i valori di usci¬ 
ta della funzione IN in varie 
linee del listato, seguendo le 
indicazioni date qui sotto: 
linea 200 - IN 64510 < 255 
e IN 63486 < 255 
linea 220 - IN 61438 < 255 
linea 240 - IN 32766 < 255 
linea 260 - IN 65278 < 255 

Tratto dalla rivista 
“Paper Soft” 



1 CLEAR 32299 
2 BEEP .5,12: BEEP .5,24 
30 GO SUB 1000 
40 GO SUB 2000 
50 BORDER 0 
55 LET 8$-"..." 

60 LET hs-0 
65 LET s-0 
70 LET t-0 
80 LET bo-0 
85 GO TO 3000 

99 PAPER 0: INK 7: CLS : FOR n-0 TO 20: 
BEEP .005,n: NEXT n 
100 LET x-9: LET y-5: LET b-1 
110 FOR n-0 TO 7: PRINT INK 1;AT n,0;"{32 
gs8} ": NEXT n 
120 LET s-0 

130 PRINT AT 20,0;"PUNTI:";3 
140 LET a$-"{A} {A} {A} {A} ": PRINT AT 2 

0,15 ; a$ 

150 FOR n-16 TO 19: PRINT AT n,0; INK 5;" 

{ 32g 88 - } " : NEXT n 
160 LET 1-20 

165 PRINT AT 0,0 ;"LASERS:"; 1 ;" " 

170 PRINT AT 0,16 ;"HI-SCORE:";hs 

180 PRINT AT 18,15; INK 2; PAPER 5;M3D}" 

:’LET 8b-3 

200 LET x-x+(IN 64510<191)-(IN 63486<191) 

• PRINT 4T x v• "f A 1" • 

210 LET p-PEEK (PEEK 23684+256*PEEK 23685 
): IF p THEN GO SUB 500 
220 IF IN 61438<191 THEN IF 1 THEN GO SbB 
400 

230 IF RND>.79 THEN PRINT AT RND«5+8,31? 
INK 6 ;"{B}" 

240 IF IN 32766<191 THEN GO SUB 700 
245 LET rg-RND: IF rg>.96 THEN PRINT AT 1 
5-b.31 ; INK 4 ;("{C} B AND rg>.98)♦(CHR$ 16 + 
CHR$ 6 + "{F } " AND r g<-.98): BEEP .005,1 0: B 
EEP .005,20 

255 LET b-INT (RND«3>*1 

260 PRINT AT x,y;" ": POKE 32477, b: LET . a 
-USR 32426: IF IN 65278<191 THEN LET a-USR 
32426 

270 GO TO 200 

400 REM SUBROUTINE PER FUOCO 
405 LET 1-1-1 

440 BEEP .005,30: LET a-USR 32507: IF a T 
HEN BEEP .01,7: BEEP .01,0: GO TO 450 
442, PRINT AT 0,7 ; 1 ; " " 

445 RETURN 

450 LET S-S+10*a 

460 PRINT AT 20,6;S;" ";AT 0,7;1;" " 





470 RETURN 

500 IF p-60 THEN : LET 1-1+20: BEEP .01,2 
0: GO TO 460 

501 BEEP .01,1: BEEP .01,2: BEEP .01,4: B 
EEP .01,8: BEEP .01,16: BEEP .01,8: BEEP . 
01,4: BEEP .01,2: BEEP .01,1 

510 PRINT AT x,y; OVER 1;"#": BEEP .01,0: 
BEEP .01 ,-.5: BEEP .01 ,-1 
515 IF a$-"!" THEN GO TO 600 
520 LET a$-a$(3 TO ): IF a$-"" THEN LET a 
$-" ! " 

530 LET s-3-10: PRINT AT 20,15;a$;" " 

550 PRINT AT x,y; INK 1;"{gs8}": LET a-US 
R 32426: LET x-9 

560 BEEP .3,0: PRINT AT 20,6;S;" ": RETUR 

N 

600 PRINT AT 4,5; FLASH 1 ;"LA PARTITA E' 
FINITA": FLASH 0: FOR n-1 TO 8: LET a-USR 
32300: BEEP .1,n: NEXT n: PAUSE 2: PAUSE 1 
: IF hs<s THEN LET hs-3: GO SUB 800 
610 GO TO 3000 
620 GO TO 100 

700 LET 3bisb-1 

701 IF INT (s/1000)>bo THEN LET sb-3: PRI 
NT AT 18,15; INK 2; PAPER 5;"{3D}" 

702 IF sb<0 THEN RETURN 

710 LET 3-3+10*USR 32400: BEEP .5,7: BEEP 
.5,0: PRINT AT 20,6;S;" ": PRINT AT 18,15 
+ sb; INK 5 ;"{gs8 } " 

715 IF INT (s/1000)>bo THEN LET sb-3: PRI 
NT AT 18,15; INK 2; PAPER 5;"{3D}" 

716 LET bo-INT (s/1000) 

720 FOR n-0 TO 31: POKE 32477,INT (RND* 3) 
+ 1 : LET a-USR 32426 

725 PRINT AT x,y-1; PAPER 8;" {A}": BEEP 
.01 , n 

730 NEXT n: RETURN 

800 PAPER 0: INK 6: CLS 

810 PRINT " ATTACCO ALLA TERRA" 

820 LET a$-"CONGRATULAZIONI !! HAI BATTUT 
0 IL MIGLIOR PUNTEGGIO SINORA RE AL IZ Z 

ATO: INSERISCI LE TUE INIZIALI" 

830 PRINT * ' • 

840 FOR n-1 TO LEN a$: PRINT a$(n);: BEEP 
.003,0: NEXT n 
850 PRINT ''TAB 5 ; 

860 LET s$-"" 

862 PRINT "-";: FOR n-1 TO 3: PRINT CH.R 

$ 8 ; : NEXT n 

865 FOR n-1 TO 3 

866 PRINT "?"; 

870 PAUSE 0: LET p$-INKEY$: IF LEN p$<>1 



THEN GO TO 870 

880 PRINT CHR$ 8;p$;: LET 3$-s$+p$ 

885 BEEP . 1 ,n 
890 NEXT n 

900 PAUSE 50: RETURN 
999 STOP 

1000 FOR n-1 TO 6: READ a$ 

1010 FOR p-0 TO 7: READ a 
1 020 POKE USR a$*p , a : NE XT p 
1030 NEXT n 

1040 DATA "a",224,48,248,1 27,1 27,248,48,22 
4 

1050 DATA "b",24,36,126,129,129,126,0,0 
1055 DATA "c",60,66,129,66,60,60,60,60 
1 056 DATA "d",0,64,92,1 26,1 26,92,64,0 
1057 DATA "e",255,153,153,255,153,153,255, 
255 


1 058 DATA "f" ,93.42,54,1 27,85,85,20,54 
1060 RETURN 
2000 REM BOMBA 

2020 DATA 33.255,88,14,0,6,255,35,126,254 
2030 DATA 6,32,7,12,62,8,119,16,-12,201 
2040 DATA 1.98,1 6,1 1 9,1 6,-1 8,201 
2060 REM SCROLL 

2080 DATA 6,64,33,0,72,17,32,0,62,0 
2090 DATA 119,25,16,252,33.0,89,6,8,17 
2100 DATA 32,0,62,7,119,25,16,-4,1,0 
2110 DATA 8,17,0,72,33,1,72,237,176,1 
2120 DATA 0,1,17,0,89,33,1.89,237,176 
2140 REM CITTA• 

2160 DATA 6,0,14,15,62,22,215,121,215,62 
2170 DATA 31,215,62,16,215,62,5,215,62,17 
2180 DATA 215,62,0,215,62,148,215,13,16,-2 
6 


2190 DATA 201 
2200 REM FUOCO 

2230 DATA 14,0,42,132,92,17,0,3,25,229,6.5 
,126,254,129,40,16,254,127,40,11,54,255,35 
,16,-14,118,118,118,118,24,47,12,197,237.8 
2 

2240 DATA 229.205,94,126 

2250 DATA 0,66,36,24,24,36,66,0,118,118.22 
5 


2252 DATA 229,205,94,126,153,90.16,199,227 

.8,90,153,118,118,225 

2260 DATA 205,94,126,0,0,0,0,0,0,0 

2265 DATA 0,193,12 

2266 DATA 225.62,5.54,0,35,4,184,32,-7,6,0 
, 201 

2280 REM CARICAMENTO 

2300 FOR n-1 TO 26+50+31+92 

2310 READ a: POKE 32399+n,a 




2320 NEXT n 

2330 DATA 62,7,33,0,89,6,255,11 9,35,1 6,-H, 
118,61,32,-13,6,1,33,255,79,14,32,175,126, 
203,63,1 19,H3.13,32,-8,62,71 ,1 88,32 ,- 16,16 
,-21,201 
23110 FOR n» 1 
2350 READ a: 

2360 NEXT n 

2370 DATA 6,8,209,26,19,213,119,17,0,1,25, 
16,-11,201 
2380 FOR n-1 TO IH 

READ a: POKE 323H9+n,a: NEXT n 


TO 39 

POKE 32299+n,a 


2390 
2 H 00 
3000 

311 0 

TACCO 


RETURN 

INK 7: PAPER 
FOR n-0 TO 7 
ALLA TERRA" 


H ; "AT 


31 20 


PRINT ''"USA 
. . . .Su"• 'TAB 


0: CLS 

INK n: PRINT AT 3 
BEEP .1,n 

I TASTI:"' 'TAB 9;"1-5. . . 

9 ì " Q—T.Giu"' ' T 

AB 9 : " 6-0.Fuoco"' 'TAB 9;"SHIFT...+ 

Velocita’'"'TAB 9;"SPACE.Bombe" 

3121 PRINT '"'PREMI ’S’ PER INIZIARE" 

NEXT n 
PAUSE 250 

IF INKEY$-"s" THEN GO TO 99 
CLS 

PRINT "Attacco alla Terra": PRINT : P 
: PRINT 

LET a$«"{B}.10 punti"+CHR$ 13 


3122 
31 25 
3126 
31 27 
3130 
RINT 
31 HO 

♦ CHR$ 1 3 + " { F }.20 punt i " + CHR$ 1 3*CH 

R $ 13 + "{C} .RIFORNIMENTO ”+CHR$ 13 + CHR 

$ 13 + CHR$ 13 + "PREMI ’S' PER INIZIARE" 

3150 FOR n-1 TO LEN a$ 

3160 PRINT a$(n ) ; : BEEP .003,0: NEXT n 
3170 PAUSE 250: IF INKEY$-"s" THEN GO TO 9 


CLS 

PRINT 

PRINT 

PAUSE 

PRINT 


"ATTACCO 
„--- 


ALLA 


TERRA" 

- 


50 

’''"MIGLIOR 
10: PAUSE 50 
PRINT '"ULTIMO 
50 

' ' ' "IL MIGLIOR 

. 1,8 

•'••'"PREMI ’S’ PER INIZIARE" 
200: IF INKEY$-"3" THEN GO TO 


PAUSE 

PRINT 

BEEP 

PRINT 

PAUSE 


PUNTEGGIO-";hs: BEE 


PUNTEGGIO-"; 3: BEEP 


PUNTEGGIO e' di 


3250 GO TO 3000 

9999 CLS : PRINT FLASH 1 ;AT 10,H;"FERMA IL 
REGISTRATORE ! ! !";AT 11,1; FLASH 0;"Premi 
un tasto per cominciare.": PAUSE 0: CLS : 
RUN 













CLOCK 


Se avete l’esigenza di visua¬ 
lizzare un orologio digitale 
di grandi dimensioni, questo 
è il programma che fa per 
voi. 

Brevissimo, è autoesplican- 
te. Sappiate solamente che 
per regolare velocemente i 
minuti dovete premere EN- 
TER. Dimenticavamo: così 
com’è l’orologio ritarda sen¬ 
sibilmente, occorre modifi¬ 
care adeguatamente (fate i 
test del caso) la linea 370. 

Tratto dall'archivio 
della Jackson 


1 0 

DIM 3(11,5) 


20 

DIM c$(8,H ) 


30 

LET a $ «"1 2221 3 H H H1 151611 

5151662151615 

11612 

11555512121121518H8H8" 


HO 

FOR i-1 TO 11 


50 

FOR k-1 TO 5 


60 

LET s(l ,k )-VAL a$((1-1 )* 

5 ♦ k ) 

70 

NEXT k 


80 

NEXT 1 


90 

LET b$-"{3gs8) {gs8} {gs 

8} {2gs8 } 1 

gs8} 

t gs8} (gs8 } {2gs8} 

n 

1 00 

FOR k-1 TO 6 


1 1 0 

LET c$(k)-b$(k*H-3 TO k* 

H) 

1 20 

NEXT k 


1 28 

PRINT TAB 1 3 ; "CL0CK" 


1 32 

PRINT "inserisci:" 


1 35 

PRINT "ora iniziale:"; 


1 HO 

INPUT h 


150 

PRINT h 


1 60 

PRINT "minuto iniziale:" 

i 

1 70 

INPUT m 


1 80 

PRINT m 


200 

PRINT "per fare partire 

il clock" 

210 

PRINT "premi enter" 


220 

INPUT u$ 


230 

CLS 


232 

PLOT 30,88: DRAW 185,0 


233 

DRAW 0,70: DRAW -185,0: 

DRAW 0,-70 

2 H 0 

LET m-m+1 


250 

IF m< >60 THEN GO TO 300 


260 

LET m-0 


270 

LET h«h + 1 


280 

IF h< >2 H THEN GO TO 300 


290 

LET h-0 


300 

LET hi-INT (h/10) 


310 

LET h2-h-h1* 10 


320 

LET mi-INT (m/10) 


330 

LET m2«m-m1*10 


3 H 5 

FOR f-1 TO 5 


350 

PRINT AT 3*f,6 ;c$(s(hi + 1 

,f ) ) ;c$(s(h2 + 

1 ,f ) 

);C$(3(1 1 ,f ) ) 


351 

PRINT AT 3*f,l8;c$(s(m1+ 

1 , f ) ) ;c$(s(m2 

♦1 ,f 

)) 


360 

NEXT f 


370 

PAUSE 3QH0 


HOO 

GO TO 2H0 


9999 

CLS : PRINT FLASH 1 ;AT 1 

0,H;"FERMA IL 

REGISTRATORE AT 11,1; FLASH 0;"Premi 

un t 

asto per cominciare.": PAUSE 0: CLS : 

RUN 




46 







CODICE NASCOSTO 


Ecco un rifacimento elettro¬ 
nico del celebre Master 
Mind. Una volta caricato il 
programma, il computer ca¬ 
rica dall’indirizzo 58400 
una piccola routine in L/M 
di 24 byte, che permetterà di 
memorizzare con RAUDO- 
MIZE USR 58400 e di richia¬ 
mare con RANDOMIZE USR 
58412 una pagina video, (in 
questo caso la plancia di gio¬ 
co), poi dalla linea 9000 alla 
9030, verranno formati i ca¬ 
ratteri grafici relativi al gio¬ 
co; le lettere sono (A, B, C, 
D). La prima fase si conclu¬ 
de con le istruzioni per il 
gioco. 

Istruzioni: all’inizio il com¬ 
puter richiede il colore di 
bordo, di carta, la brillantez¬ 
za e le manche di gioco. Poi 
disegna la plancia che verrà 
in seguito memorizzata in 
modo che la sua visualizza¬ 
zione, dopo ogni manche, 
sia immediata. Subito dopo 
lo Spectrum forma nella sua 
memoria 4 colori in alto al 
centro della plancia, scelti 
tra gli otto disponibili, (ne¬ 
ro, blu, rosso, magenta, ver¬ 


de, ciano, giallo e bianco), 
naturalmente la macchina 
può memorizzare a caso an¬ 
che più di uno stesso colore. 
Il giocatore dovrà indovina¬ 
re i 4 colori in sequenza se¬ 
guendo le istruzioni date 
dallo Spectrum; se infatti il 
computer risponde con un 
quadratino nero (■), vuol 
dire che il colore c’è ed è al 
posto giusto, con un quadra¬ 
tino bianco (□) se il colore 
c’è, ma al posto sbagliato, 
con uno spazio vuoto se il 
colore non c’è proprio. 

Se il giocatore mentre prova 
ad indovinare la sequenza, 
sbaglia, cioè voleva intro¬ 
durre un altro colore; basta 
che egli pigi un numero 
maggiore o uguale ad otto, 
così egli avrà la possibilità 
di ricominciare ad indovina¬ 
re i colori in quella sequen¬ 
za in cui aveva commesso 
l’errore. 

Concluse le manche, lo Spec¬ 
trum da il punteggio finale, 
dichiarando il vincitore. 

Tratto dal libro 
"Paper Book” 


1 INPUT #0;"Colore di bordo?(0/7)";bo: 
BEEP .05,20 

2 INPUT #0 ;"Colore di carta?(0/7)";ca: 
BEEP .05,20 

4 INPUT #0 ; "Brillantezza?(0/1 )";br: BEE 
P .05,20 

5 INPUT #0 ; "Manche di gioco?(1/10)";k: 
BEEP .05,20 

6 BORDER bo: PAPER ca:: BRIGHT br: CLS 

7 LET tot-0: LET se-0: LET sc-100: LET 
sd-0: LET pu-0: LET pi-0: LET or-0: LET ve 
-0: LET w-0: LET pa-0: LET ga-0: GO TO 12 

8 OVER 0: PRINT FLASH 1; PAPER ca;AT 1. 
10 ;"Partita n.";pa: PRINT AT 0,0 ;"COMPUTER 
": PRINT AT 0,23 ;"Gl OCATORE" 

10 LET tot-pi: PRINT AT 1 ,0 ;"SCOREpu: 
PRINT AT 1 ,23 !"SCORE :"; pi : RETURN 

11 LET sc-100: LET w-0: LET z-0: RANDOMI 
ZE USR 58412: GO SUB 8: GO TO 400 

12 LET pa-pa+1: OVER 1: LET w-0: LET z-0 
: FOR n-0 TO 144 

13 INK 7: PLOT 24,*+n: DRAW 200,0 

14 NEXT n: 

15 FOR j-1 TO 23: PLOT OVER 1;89,122+J: 
DRAW OVER 1 ; 70,0 : NEXT J 

20 PLOT OVER 1 ; 28,10 : DRAW OVER 1 ; 192,0 : 
DRAW OVER 1 ; 0, 108: DRAW OVER 1 ;-192,0 : DR 
AW OVER 1 ; 0,-108 

30 OVER 1: PLOT 32,14; DRAW 184,0: DRAW 
0,98: DRAW -184,0: DRAW 0,-98 

40 PLOT 29 , 1 45: DRAW 0,-24: DRAW 55,0: P 
LOT 28,146: DRAW 56,0: DRAW 0,-24: DRAW "5 
6,0: DRAW 0., 24 

50 PLOT 88,146: DRAW 72,0: DRAW 0,-24: D 
RAW -72,0: DRAW 0,24 

60 PLOT 165,145: DRAW 0,-24; DRAW 56,0: 
PLOT 164,146: DRAW 56,0: DRAW 0,-24: DRAW 
-56,0: DRAW 0,24 

65 LET a-0: FOR n-1 TO 5 

70 PLOT 39,97-a: DRAW 57,0: DRAW 0,-11: 
DRAW -57,0: DRAW 0,11 
80 LET a-a+16 
90 NEXT n 

100 LET a-0: FOR n-1 TO 5 

110 PLOT 1 27,97-a: DRAW 57',0: DRAW 0,-11: 
DRAW -57,0: DRAW 0,10 
120 LET a-a+16 
130 NEXT n 

140 LET b-96: FOR x-1 TO 2 

150 OVER 0: PLOT b,97: DRAW 31,0: DRAW 0, 
-75 : DRAW -31 ,0 : DRAW 0,75 

151 OVER 1: PLOT b,97: DRAW 31,0: DRAW 0, 
-75: DRAW - 31 .0: DRAW 0,75 




160 LET a-0 : FOR n-1 TO 5 
170 LET a-a+16 
180 NEXT n 

190 LET b-b+88: NEXT x 

191 OVER 1 
205 LET t-52 

210 LET b-0: LET a-0 

220 FOR z-1 TO 2 

230 FOR x-1 TO 5 

240 FOR n-1 TO 3 

250 PLOT t + a , 97-b: DRAW 0,-10 

260 LET a-a+16 

270 NEXT n 

280 LET b-b +16 : LET a-0 
290 NEXT x 

300 LET t-139 : LET b-0: LET c-0 
310 NEXT z 

320 LET a-0: FOR n-1 TO 3 
330 PLOT 109 + a,137 : DRAW 0,-10 
340 LET a-a+ 16 
350 NEXT n 

355 PRINT FLASH 1; PAPER ca;AT 5,4;"HIDDE 
N" ; AT 5,22 ;"CO DE" 

360 GO SUB 9060: OVER 0 

400 REM Sequenza colori del com-puter. 

405 LET or-0: LET ve-0 
410 RANDOMIZE 

420 LET e-INT (RND*8): LET f-INT (RND*8): 
LET g-INT (RND*8 ) : LET h-INT (RND*8) 

430 PRINT INK 7; PAPER e ;AT 5,12;"{gs8}" 

435 PRINT INK 7; PAPER f;AT 5,l4;"{gs8}" 

440 PRINT INK 7; PAPER g;AT 5,l6;"{gs8}" 

445 PRINT INK 7; PAPER h;AT 5,l8;"{gs8}" 

500 REM Mossa giocatore 
510 LET x-0: LET y-0: LET z-0 

520 INVERSE 0: INPUT #0 ; "Introduci n.colo 
re (0/7)a-";a: BEEP .05,30 

521 IF a>-8 THEN GO TO 520 

522 IF a-7 THEN PRINT PAPER 7; INK 0;AT 1 
0 + x,5 + y;"{D}" 

530 IF a<-6 THEN PRINT PAPER 7; INK a ;AT 
1 0 + x,5 + y ; "{A}" 

540 INPUT #0;"Introduci n. colore (0/7 ) b-" 

;b: BEEP .05,32 ( 

541 IF b>-8 THEN GO TO 520 

542 IF b-7 THEN PRINT PAPER 7; INK 0;AT 1 
0 + x , 7 + y;"{D}" 

545 IF b<-6 THEN PRINT PAPER 7; INK b;AT 
10+x,7+y;"{A}" 

550 INPUT #0 ; "Introduci n.colore (0/7)c-" 
; c : BEEP .05,34 

551 IF 0-8 THEN GO TO 520 

555 IF c-7 THEN PRINT PAPER 7; INK 0;AT 1 
0+x,9+y;"{D}" 




560 IF c<-6 THEN PRINT PAPER 7; INK C;AT 
10+x,9 + y;"{A)" 

565 INPUT #0 ; "Introduci n.colore (0/7)d- n 
; d: BEEP .05,36 

566 IF d>-8 THEN GO TO 520 

570 IF d-7 THEN PRINT PAPER 7; INK 0;AT 1 
0+x,11+y;"{D}" 

575 IF d<-6 THEN PRINT PAPER 7; INK d;AT 
10+x,11+y;"{A}" 

579 REM Risposta computer 

580 LET vare-e: LET varf-f: LET varg-g: L 
ET varh-h: 

582 REM Giusto posto 

585 OVER 1 : IF a-e AND b-f AND c-g AND d- 
h THEN PRINT AT 10+ve,12 + or ;"{4B}": GO TO 
8000 

590 IF a-e THEN PRINT AT 10+ve,12+or;"{B} 
LET vare-9: LET a-10: LET or-or+1 
600 IF b-f THEN PRINT AT 10 + ve , 12 + or ;"{B} 
"s LET varf-9: LET b-10: LET or-or+1 
610 IF c-g THEN PRINT AT 10 +ve , 12 + or;"{B} 
LET va^g-9: LET c-10: LET or-or+1 
620 IF d-h THEN PRINT AT 10 +ve , 12 + or;"{B} 
LET varh-9: LET d-10: LET or-or+1 
650 REM Posto Sbagliato 

700 OVER 0: IF a-varf THEN GO SUB 7000: L 
ET varf-9: LET a-10: LET or-or+1: GO TO 75 
0 

710 IF a-varg THEN GO SUB 7000: LET varg- 
9: LET a-10: LET or-or + 1: Gd\ TO 750 
720 IF a-varh THEN GO SUB 7000: LET varh- 
9: LET a-10: LET or-or+1 
750 IF b-vare THEN GO SUB 7000: LET vare- 
9: LET b-10: LET or-or+1: GO TO 800 
760 IF b-varg THEN GO SUB 7000: LET varg- 
9: LET b-10: LET or-or+1: GO TO 800 
770 IF b-varh THEN GO SUB 7000: LET varh- 
9: LET b-10: LET or-or+1 
800 IF c-vare THEN GO SUB 7000: LET vare- 
9: LET c-10: LET or-or+1: GO TO 850 
810 IF c-varf THEN GO SUB 7000: LET varf- 
9: LET c-10: LET or-or+1: GO TO 850 
820 IF c-varh THEN GO SUB 7000: LET varh- 
9: LET c-10: LET or-or+1 
850 IF d-vare THEN GO SUB 7000: LET vare- 
9: LET d-10: LET or-or+1: GO TO 900 
860 IF d-varf THEN GO SUB 7000: LET varf- 
9: LET d-10: LET or-or+1: GO TO 900 
870 IF d-varg THEN GO SUB 7000: LET varg- 
9: LET d-10 

900 IF z<5 THEN LET or-0: 

910 LET ve-ve+2 

1000 LET w-w+1: LET z-z+1: LET x-x+2 




1010 IF z-5 THEN LET y-y+11: LET x-0: LET 
ve-0 : LET or-11 

1011 IF z>5 THEN LET or-11 

1012 LET sd-sd+5: LET sc-sc-10 

1013 IF w-10 THEN CO TO 8000 
1020 GO TO 520 

7000 PRINT OVER 1 ; AT 1O + ve,12 + or;"{C}": IN 
VERSE 0: RETURN 
7500 REM Punteggio 

8000 INVERSE 0: FOR j-1 TO 23: BEEP .01,J: 
PLOT OVER 1;89,122+j: DRAW OVER 1;70,0: N 


EXT j 

8010 LET ga»ga>1 ; IF SC>-10 THEN LET sd-pu 
: GO TO 8500: IF sc<-10 THEN GO TO 8400 
8400 BEEP 2,-40: PRINT FLASH 1;AT 8,4;"Hai 
Perso la ";ga;AT 8,18;" partita": GO TO 8 
700 

8500 BEEP .2,30: BEEP .2,32: BEEP .2,34: B 
EEP .2,30: PRINT FLASH 1 ; AT 8,4;"Hal vinto 
la ";ga;AT 8,18;" partita": GO TO 8700 
8700 LET pi-tot+sc: LET pu-sd: IF pa-k THE 
N GO SUB 9800 

8800 GO SUB 8: PRINT #0; FLASH 1;"_ 

PREMI UN TASTO_": PAUSE 0: LET pa¬ 

pa-f 1 : CLS : GO SUB 8 
8900 GO SUB 11 

9000 FOR n-0 TO 7: READ a: POKE USR "a"+n, 
a: NEXT n: DATA 60,1 26,255,255.255,255,1 26 


7: READ a: POKE USR "b"+n, 
0,0,60,60,60,60,0,0 
7: READ a: POKE USR "c"+n, 
0,0,60,36,36,60,0,0 
7: READ a: POKE USR "d"+n, 
60,66,129,129,129,129,66,6 


, 60 : 

9010 FOR n-0 TO 
a: NEXT n: DATA 
9020 FOR n-0 TO 
a: NEXT n: DATA 
9030 FOR n-0 TO 
a: NEXT n: DATA 
0: RETURN 

9050 SAVE "HIddenCode" LINE 9057 
9057 CLEAR 58399: LET a$-"0330000640170642 
280010000272371762010330642280170000640010 
00027237176201" 

9059 FOR n-0 TO 23: POKE 58400+n,VAL a$(3* 
n +1 TO 3*n+3 ) : NEXT n: GO TO 9075 

9060 RANDOMIZE USR 58400: RETURN 

9075 GO SUB 9000: BORDER 0: PAPER 0: INK 6 


: CLS 

9078 BEEP .5,50: PRINT FLASH 1;AT 10,0;"_ 

STOP THE TAPE_" 

9080 PAUSE 100: CLS 

9090 PRINT TAB 10; FLASH 1; PAPER 2; INK 5 
; BRIGHT 1 ;"ISTRUZIONI :" 

9095 FOR n-0 TO 7: OVER 0: INK n: 

9100 PLOT 2,160: DRAW 0,-40: PLOT 18,160 : 
DRAW 0,-40: PLOT 2,140: DRAW 16,0 
9110 PLOT 26,160: DRAW 0,-40 








9120 PLOT 3^,160: DRAW 0,-40: DRAW 0,40,PI 
9130 PLOT 58,160: DRAW 0,-40: DRAW 0,40,PI 


DRAW 0,40: DRAW 16,-40: 
DRAW -16,0: DRAW 0,-40: 


9135 PLOT 84,160: DRAW 0,-40: DRAW 16,0: P 
LOT 84,1 60: DRAW 16,0: PLOT 8 4 , 1 4 0 : DRAW 1 
6,0 

9140 PLOT 110,120 
DRAW 0,40 
9145 PLOT 166,160 
DRAW 16,0 

9150 PLOT 1 74,1 60: DRAW 0,-40: DRAW 16,0 : 
DRAW 0,40: DRAW -16,0 

9155 PLOT 198,160: DRAW 0,-40: DRAW 0.40.P 
I 

9160 PLOT 224,160: DRAW 0,-40: DRAW 16,0: 
PLOT 224,160: DRAW 16,0: PLOT 224,140: DRA 
W 16,0 
9165 NEXT n 

9168 PRINT FLASH 1;AT 8,0;"? By Rocchi Ale 
ssàndro" 


9170 BEEP .5,55: PRINT INK 4; BRIGHT IjAT 
10,0 ; "Questo gioco consiste nell' in- dovi 
nare i 4 colori, che il co- mputer forma n 
ella sua memoria, ad ogni colore giusto ne 
1 posto giusto il computer risponderà' co 
n un ((B}), ad ogni colore giu- sto nel po 
sto sbagliato con un ( {C} ) ed infine con 
un ( ) se il colore non c'e' proprio." 

9180 PRINT #0; FLASH ì;"_PREMI UN TASTO P 

ER INIZIARE_" 

9190 PAUSE 0 
9200 RUN 

9800 IF pu > p 1 THEN PAUSE 200: CLS : BEEP . 
4,-10: BEEP .4,-10: BEEP .8,-12: BEEP .4,- 
10: BEEP .5,-15: BEEP 1,-17: PRINT FLASH 1 
;AT 11,5;"Sei proprio una frana": GO SUB 8 
: GO TO 9900 

9850 IF pu<pi THEN PAUSE 200: CLS : FOR n- 
1 TO 3: FOR m-40 TO 0 STEP -1: BEEP .01,m: 

NEXT m: NEXT n: FOR n-0 TO 40: BEEP (n/30 
0 ) , 40-n: NEXT n 

9852 IF pu-pi THEN PAUSE 200: CLS : BEEP . 
5,30: BEEP .5,28: PRINT FLASH 1;AT 11,5;"B 
ravo hai pareggiato": GO TO 9900 
9860 PRINT FLASH 1;AT 11 ,0 ; "COMPLIMENTI SE 
I STATO BRAVISSIMO": GO SUB 8: GO TO 9900 
9900 PRINT #0; FLASH 1;"Vuoi giocare ancor 
a? (s/n)" 

9910 IF INKEY$-"s" OR INKEY$-"S" THEN BEEP 
.5,50: RUN 

9920 IF INKEY$-"n" OR INKEY$-"N" THEN BEEP 
.5,50: STOP 
9930 GO TO 9910 
9940 LLIST : COPY 






MAGGIORE - MINORE 



Vi interessa un bel gioco di 
carte, e un po’ di emozione 
senza la paura di perdere 
anche la camicia? Questa è 
la vostra occasione di far 
saltare il banco senza ri¬ 
schiare nemmeno un soldo. 
In questo gioco il computer 
tiene il banco ed inizia po¬ 
nendo cinque carte coperte 
sullo schermo, dopo avervi 
fatto credito di 100 “dollari”. 
Scopo del gioco è, carta dopo 
carta, indovinare se la suc¬ 
cessiva avrà valore maggio¬ 
re o minore della preceden¬ 
te. All’Inizio di ogni mano 
verrà scoperta la prima car¬ 
ta, e vi sarà chiesto quanto 
volete puntare. Se indovine¬ 
rete le successive quattro 
carte raddoppierete la pun¬ 
tata, ma basterà un errore a 
farvi perdere mano e “dena¬ 
ro”. Oltretutto, al computer 
è stato dato un piccolo van¬ 
taggio: in caso di carta 
uguale vince lui. 




Il programma 

È piuttosto lungo, ed occupa 
per intero la memoria del 
16 Kbyte. Contiene inoltre 
un certo numero di caratte¬ 
ri grafici, evidenziati nel li¬ 
stato, che occorre introdur¬ 
re con attenzione. 


Istruzioni 

Dopo aver dato RUN sullo 
schermo, compariranno 
cinque carte coperte; una 
piccola pausa, quindi verrà 
scoperta la prima carta, e vi 
sarà chiesto l’ammontare 
della vostra puntata per la 
prima mano. Fatto questo, 
dovrete cercare di indovina¬ 
re se la prossima carta sarà 
maggiore o minore. 


f-53 OR f-57 THEN 
AT v + 3 ,H + 3;f$ ;AT v 


AT 


670 IF f-55 OR f-56 OR f-57 OR f-151 THEN 
PRINT AT v+1 ,h + 2 ;f $ ; " ";f$;AT v + 7,h + 2 ; f$ ; 
" ";f$ 

680 IF f-52 OR f-53 OR f-54 THEN PRINT AT 
v+2,h+2;f$;" ";f$;AT v + 6 , h + 2 ; f $ ; " ";f$ 

690 IF f-151 OR f-50 OR f-51 THEN PRINT A 
T v + 2,h + 3;f$ ;AT v+6,h+3;f$ 

700 IF f-56 OR f-57 OR f-58 OR f-151 THEN 
PRINT AT v + 3 , H + 2 ; f$ ; " ";f$;AT v+5,H+2;f$; 
" «;f$ 

710 IF f «54 THEN PRINT AT v+4,h+2;f$;" 

f$ 

720 IF f-65 OR f-51 OR 
PRINT AT v+4,h+3;f$ 

730 IF f-55 THEN PRINT 
+ 5iH + 2 ; f$ ;" ";f$ 

7li0 IF f-7H THEN PRINT 
AT v+4,h+2;"{gs7) { g 8 } {g5}";AT 
}(gs3){gs6}" 

750 IF f-81 THEN PRINT AT v♦3,h + 2 ; "{gs6 ) l 
g3 1 (g6 1 " ; AT v + 4,h + 2;"{gs5Hg4}{g5}";AT v + 5 
,h+2;"{g6){gs2}{ga6}";AT v+6,h+4;"{g1}" 

760 IF f-75 THEN PRINT AT v +3 , H + 2;"{gs5 } { 
g8)(gs6) n ;AT v+4,h+2;"{gs4}{g6}";AT 
2 ;"{gs5}{g8}{g6 } " 

770 PAPER 4: INK 0 
RETURN 
GO SUB 600 
PRINT AT 14,11;" 

AT 14,10 ;"Quanto 
INPUT SCO 
IF sco>cred THEN 
PRINT AT 14,10;" 

PRINT AT 14,10;" 

PAUSE 50 
IF C-5 THEN LET 


v + 3 » H + 4 ; "{g5 } " ; 
v + 5, H + 2;"{g 6 


v + 5 , h + 


776 
900 
1 000 
RINT 
1010 
1 020 
1 025 
1 030 
1035 

1 040 

2 

1 050 
1060 
1 061 
1 062 
1 065 
1 066 
1 067 
1 068 
1069 
1 070 
1 075 


scommetti?" 


GO TO 1010 

II 

HAI GIOCATO $"; 3co 


cred-cred+sco: GO TO 


PRINT AT 14,10 ;"MAGGIORE 0 minore?" 
INPUT h$ 

IF h$-"M" THEN LET y$-"MAGGIORE " 
IF h$-"m" THEN LET y$-"MINORE " 
LET q-VAL a$(c,1 TO 2) 

LET ql-VAL a$(c+1,1 TO 2) 

IF q1>q THEN LET c$-"M" 

IF q1< q THEN LET 
IF q1 -q THEN LET 
PRINT AT 14,10;" 

PAUSE 100 
LET c-c+1: GO SUB 


c $ - " m " 
c $ - " u " 
SCEGLI 

600 


;y$ 


1 080 

1090 IF c$-h$ THEN 
E 125: GO TO 1040 
1095 PRINT AT 14,11 ; 1$ : PAUSE 
2100 LET cred-cred-sco: GO TO 
3000 REM ! valore delle carte! 
3005 PRINT AT 14 , 11 ; "ATTENDERE 
3010 DIM A$(53 » 5) 


PRINT AT 14,11 ;w$: PAUS 


PREGO" 







3020 LET C-0 

3040 LET S$-"{C} (D} t F} {G}" 

3060 LET D$«"14A02203304405506607708809910 
{H}11J12Q13K n 
3070 FOR S-1 TO 4 
LET A-2 

IF S-1 OR S-4 THEN 
FOR n-1 TO 13 
LET c — c♦1 

LET a$(c )-d$(n»3“2 


3080 
3090 
3100 
31 1 0 
31 20 
a 

31 30 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
4000 
4010 


LET a-0 


TO n*3) + s$(s)+STR$ 


NEXT n: NEXT 3 
FOR c-53 TO 2 STEP -1 
BEEP .01 ,p 

LET a-(52-(RND»8))+1 
LET a$(c)-a$(a): LET a$(a )-a$(c-1 ) 
NEXT c 

FOR c-2 TO 53 
BEEP . 02,c 
LET a$(c-1)-a$(c) 

NEXT c 
LET c — 1 
RETURN 

BORDER 1 : PAPER 1 : CLS : INK 7 
IF cred-0 THEN PRINT AT 10,7;"Hai 
so tutto!!!" 

4020 PRINT AT 
INPUT b$ 

IF b$-"s" THEN RUN 
STOP 

LET d-0: LET b-175: FOR a-255 TO 150 
-10 

BEEP 0.1,a-200 
BORDER RND* 6 


15,6;"Giochi ancora? 

4030 
4040 
4050 
5000 
STEP 

5005 

5006 

5010 PLOT d , d 
,0: DRAW 0,-b 

5020 LET d-d + 2 : LET b-b-10: NEXT a 
5030 PRINT AT 15 » 2 ;"HAI FATTO SALTARE 
ANCO" 


Hai per 
(s/n)" 


DRAW a,0: DRAW 0,b: DRAW -a 


IL B 


5040 
5100 
9000 
9010 
9020 
9030 
9035 
9040 
9045 
9050 
9060 
9065 
9070 
9080 
9090 
9100 
91 1 0 


200: GO TO 4000 


TO USR "i" + 7 


PAUSE 
STOP 

RESTORE 9040 
FOR f-USR "a" 

READ a 

f .a 
f 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 

170.85.170.85.170.85.170.85 
0,56,56,16,214,254,214,16 
0,16,56,124,254,254,214,16 

170.170.85.85.170.170.85.85 
0,108,254,254,124,124,56,16 
0,16,56,124,254,254,214,16 
152,164,164,164,164,164,164 


POKE 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
RETURN 


152 


128,128,128,128,128,128,128,128 


Se avrete indovinato, il gio¬ 
co proseguirà con la carta 
successiva, fino alla quinta, 
dopodiché il vostro capitale 
sarà aggiornato e comince- 
rà una nuova mano. Se, in¬ 
vece, commetterete un erro¬ 
re nel corso del gioco, il vo¬ 
stro capitale verrà aggior¬ 
nato, ma stavolta per sottra¬ 
zione, ed il gioco passerà al¬ 
la mano successiva. 


Controlli 

Il tasto m, usato senza CAPS 
SHIFT (m) indicherà mino¬ 
re, con CAPS SHIFT (M) in¬ 
dicherà maggiore. 

Tratto dal libro “15 Giochi 
grafici per Spectrum ” 


55 



METEOR STORM 


Meteor Storm vi colloca ai 
controlli di un veicolo spa¬ 
ziale lanciato attraverso la 
cintura degli asteroidi. Sul 
vostro display avete la vista 
piacevole del sistema solare 
ripreso dallo spazio. A di¬ 
stanza, potete vedere Satur¬ 
no con i suoi anelli, e dietro 
le migliaia di stelle delle ga¬ 
lassie vicine. Improvvisa¬ 
mente i comandi vi avverto¬ 
no di uno stormo di meteo¬ 
re! Proprio davanti agli oc¬ 
chi, vedete una meteora in¬ 
grandirsi come se si diriges¬ 
se direttamente verso la vo¬ 
stra nave! Per confermare la 
situazione disperata, il vo¬ 
stro radar di bordo segnala 
l’approccio dell’asteroide. 


Esecuzione 
del programma 

Dopo aver digitato RUN 
(ENTER) vedrete apparire 
la consolle. 

Un mirino al centro dello 
schermo segna la direzione 
nella quale il vostro raggio 
laser punta. Per muovere il 


raggio laser, usate i seguen¬ 
ti controlli: 

“I” e U P" per muovervi a sini¬ 
stra o a destra. 

“W” e “X” per muovervi su e 
giù 

“0” per sparare 
Notate che, come avviene 
per la maggior parte dei 
programmi BASIC, può esse¬ 
re premuto solamente un ta¬ 
sto alla volta. 

Il controllo del mirino ha la 
caratteristica del “wrap-a- 
round” - in altre parole, an¬ 
dare troppo a destra vi por¬ 
terà alla sinistra dello 
schermo e così via. 

Potete sparare quando vole¬ 
te, ma mancando l’asteroide 
sentirete solamente il suono 
sordo del laser che colpisce 
il vuoto. Colpendo in qual¬ 
siasi punto l’asteroide, co¬ 
munque, lo si vedrà scaglia¬ 
to indietro, e voi sarete fuori 
pericolo. 

Penetrando più profonda¬ 
mente nello stormo di me¬ 
teore, queste incominceran- 
no a venire semre più veloci 
verso di voi. Quando ne po¬ 
trete distruggere con sole 
tre vite? 


Considerazioni 

Questo programma fa un 
uso estensivo della funzione 
OVER dello Spectrum e, di¬ 
mostra la possibilità di riu¬ 
tilizzare dei caratteri defini¬ 
bili dall’utente. 

All’inizio del programma, i 
caratteri definibili dall’u¬ 
tente vengono usati per di¬ 
segnare la forma della con¬ 
solle della nave spaziale, lo 
schermo radar della nave e 
il pianeta Saturno. Questo è 
l’unico punto nell’intero 
programma in cui essi ven¬ 
gono disegnati! Infatti, subi¬ 
to dopo, quegli stessi carat¬ 
teri definibili dall’utente 
vengono riutilizzati per de¬ 
finire la forma degli aste¬ 
roidi! 

Questo funziona perché 
l’immagine sullo schermo 
non dipende da questi carat¬ 
teri e una volta che qualcosa 
sia stato scritto nella me¬ 
moria di schermo, in qua¬ 
lunque modo, esso resterà 
finché qualcosa d’altro non 
gli venga scritto sopra. 
Diviene ora evidente l’im¬ 
menso vantaggio dell’istru¬ 
zione OVER la quale lavora 
scrivendo sopra ad una figu¬ 
ra la stessa cosa una secon¬ 
da volta, cosicché questa 
verrà cancellata, lasciando 
intatta qualsiasi cosa si tro¬ 
vasse originariamente sotto 
(provatelo!). 

Struttura 
del programma 

100-200 


Definizioane dei caratteri 
come segue: 

Angoli rotondi 

Nave spaziale come si vede 

sul radar 

Saturno 

Forme delle meteore piccole 

I (ABCD) 

Forme delle meteore piccole 

II (EFG) 

Forme delle meteore III 
(HIJK) 

Forme delle meteore IV 
(LM) 

Forma dell’esplosione I 
(NOP) 

Forma dell’esplosione II 
(QRS) 

200-340 

Sistema lo schermo della 

consolle 

400-590 

Definisce ancora i caratteri 
e inizializzazione. Messag¬ 
gio lampante. 

La funzione che richiede più 
tempo, è la dfinizione del 
vettore b$, che contiene le 
forme, stabilite a caso, delle 
meteore usate nell’esplosio¬ 
ne del video nella collisione 
finale. 

Variabili utili sono: 
x, y - posizione del mirino 
ox, oy - vecchia posizione 
del mirino 
li - numero di vite 
ms - tipo di meteore (0-9) 
di - livello di difficoltà 
mx, my - posizione delle me¬ 
teore 

v - colore dell’inchiostro 

sotto il mirino 

900-1100 

Ciclo principale 

Controllo della tastiera, 

muove il mirino 

1200-1500 


Esplosione del laser 
3000-3100 

Subroutine per aggiornare 

il radar 

4000-4880 

Soubrotine per disegnare 
nelle varie parti 
5000-fine 

Routine per gestire la colli¬ 
sione con la meteora 
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Note speciali 

L’esteso uso che fa questo 
programma delle istruzioni 
DATA spreca molta memo¬ 
ria, e il programma non gi¬ 
rerebbe in uno Spectrum 
16K se non si prendessero 
misure speciali per ridurre 
l’uso della memoria. 

Per esempio, per ogni nume¬ 
ro in un’istruzione DATA, 
non vengono memorizzati 
soltanto i caratteri che ve¬ 
dete, ma anche una sequen¬ 
za di 6 bytes che è in un for¬ 
mato tale da consentire alla 
ROM dello Spectrum di ope¬ 
rare agevolmente. In altre 
parole, una stringa DATA 
con 32 numeri, occupa 6 
bytes per il numero di linea 
e le altre informazioni, circa 
100 bytes per i caratteri che 
vi compaiono e ulteriori 200 
bytes per il modo in cui il 
computer memorizza queste 
informazioni. 

Il costo di 6 bytes è presente 
in tutte le istruzioni BASIC, 
non solo nelle DATA. Note¬ 
rete perciò che questo pro¬ 
gramma definisce i due nu¬ 
meri più comunemente usa¬ 
ti, 0 e 1, proprio all’inizio, 
come variabili, e che queste 
vengono usate in tutto il 
programma. 

Il risparmio di memoria è 
enorme, ogni numero ri¬ 
chiede ora soltanto 2 bytes, 
includendo la virgola che se¬ 
para i numeri. 


90 LET z-O: LET u-1 

100 DATA 255,248,224,192,192,128,128,128, 
255,31 ,7,3,3,u,u,u, 1 28,1 28,1 28,1 92,1 92.224 

,248.255,u,u.u,3.3,7,31,255 

110 DATA z,z, 1 28,192,231 .255,255,255,z.z, 
z,z, 1 92,2 4 0,60,255,u, 3,7, 1 4,z,z , z,z,240,22 
4,128,z,z,z,z,z 

120 DATA z,3,7.15.15,31 ,31 ,127,z,1 92,240, 

248,248,254,253,249,127,220,192,115,31,7,3 
,z,195,4,60,248,248,240,192,z 
130 DATA z,z,u,3,7,7,7,2',z,4,6,15,31 ,31 ,6 
3,14,z,4,14, 31 ,63.63.63,31,30,30,28,12,z.z 
,z,z 

140 DATA 31 ,63,31 ,31 ,15,6,z,z,z,z.z,z,128 
,192,22 4,22 44 22 4,22 4,22 4,1 92,z,z, z.z 
150 DATA 3,'23,55,63,1 27,1 27,1 27,1 27,1 28,2 
24,240,240,224,248,248,252,127,63,63.127.6 
3,31,11.z,252,252,248,224,240,224,128,z 
160 DATA 63,127,255.127.255,255,127.63,25 
2,248,252,254,254,248,248,252 
170 DATA 195,153,60,102,102,60,153.195,19 
5.99,39,60,60,180,231.231.128,60,230,255,9 
1,200,221,119 

180 DATA 38,62,246,254,108,71,227,62,115, 
55,246,180,28,188,246.99,221,118,103,238,1 
84,115,255.128 

200 BORDER 5: INK 5: PAPER 6: CLS 
210 RESTORE 100 

220 FOR 1-USR "a" TO USR "m"-u 
230 READ x: POKE i,X: NEXT 1 
240 DIM 3(10 ) * 

300 PRINT AT z,z;"{A)";AT z,31 ;" l B}";AT 1 
8,Z;"{C}";AT 18,31 ;"{D}" 

310 PRINT "{32gs8 } ": PRINT "{gs8}{A} 

lB}{4ga8 } {A} {B}{2gs8 } {C} 

{ D } { 4 g s 8 } {C} { D} { g s 8 } " 

320 PRINT INK z;AT 20,2 ;"{E}{F}";AT 21,2; 
"{G}{H}";AT 21,23;"vite 3" 

330 FOR i-u TO 20: PRINT INK 2;AT u+l6*RN 
D,u-*-29«RND;". n : NEXT i 
340 PRINT INK 3 ;AT 6 , 10 ; "{I}{J}";AT 7,10; 
"IKHL1" 

400 FOR i-USR "a" TO USR "t"-u 
410 READ x: POKE i,x: NEXT i 
420 PRINT OVER u; FLASH u; INK 2;AT 10,4; 
"PREPARATI A VOLARE IN UNO";AT 11,8;"ST0RM 
0 DI METEORE" 

430 LET b$-"": FOR j-u TO 17 
435 BEEP .05,z 
440 LET a$-" " 


Tratto dal libro “Ai confini 
dello Spectrum ” 
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«50 FOR i-u TO 15 
«60 IF RND>.6 THEN 
* RND ) 

«70 LET a$-a$+" " 


LET a$-a$+CHR$ (1««+12 


.005,10 


TO 29)+" ": 
FLASH z;AT 


NEXT j 

10 . « ; "PREPAR 


; AT 11 ,8; "STORMO DI ME 


«75 BEEP 
«80 NEXT 1 
«90 LET b$-b$+a$( 

500 PRINT OVER u; 

ATI A VOLARE IN UNO" 

TEORE" 

520 LET ox-9: LET oy-15: LET ov-5 
530 LET x-9: LET y-15 : LET v-7 
5«0 INK z: PRINT AT x,y;"+" 

550 LET 1 i - 3 : LET dl-u: LET nm-z 

560 LET ms-z: LET nm-nm+u 

580 LET mx-u + RND*17 : LET my-u+RND*29 

590 LET mi-u 

900 LET a$-INKEY$ 

910 LET ms-ms+di/7+nm/50 

920 IF INT ms-9 THEN GO TO 5000 

930 GO SUB 3000 

9«0 GO SUB «000+100 * INT ms 

950 LET w-ATTR (x,y)-8*INT (ATTR (x,y)/8) 
: IF WOO THEN LET v-w 
960 IF a$-"" OR a$-"0" THEN GO TO 1070 
1000 LET y-oy+(a$-"p" )-(a$-"i" ) 

1010 IF y<u THEN LET y-30 
1020 IF y>30 THEN LET y-u 
1030 LET x-ox+(a$-"x")-(a$-"w") 

10«0 IF x<u THEN LET x-17 
1050 IF x>17 THEN LET x-u 

1060 LET v-ATTR (x,y)-8*INT (ATTR (x,y)/8) 


u: 


1070 PRINT OVER 
K z;AT x , y ; "♦" 

1090 LET ox-x: LET oy-y 
1100 IF a$<>"0" THEN GO 
1200 FOR 1-u TO 6: BEEP 
1 

1250 IF v<>u THEN GO TO 


INK ov; AT oX , oy;"♦"; IN 


) LET xl-x-u: 

) LET yl-y-u: 

» LET x2-x+u: 
) OVER u: FOR 
AT 


x,y;"(N)" 


y 1 ; " C 0 } {P} {0 ) " : 

1 ; " { R } l S } { R } " : 
1290 DIM a(10) 
1300 FOR i-INT 
1310 LET ms-1 : 
000 


: LET ov-v 
TO 900 

1*1/100,10/1: NEXT 
900 

IF x1< z THEN LET xl-z 
IF y1< z THEN LET yl-z 
IF x2>18 THEN LET x2«l8 
i-u TO 10 : BEEP .03.3: PR 
BEEP .01,u: PRINT AT xl, 
AT x , y1 ; "{Q}{N}{Q}";AT x2,y 
NEXT i: OVER z 
LET mi-2 
ms TO z STEP -u 
GO SUB «000+100*1: GO SUB 3 
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1 320 

NEXT i 


1340 

DIM a(10) 


1 360 

LET ov-z: LET v-z 


1 370 

PRINT INK z; OVER z;AT 20,23 ;nm +1i-35 

AT 2C 

,26 ;"ahot" 


1 380 

PRINT OVER u; INK 3;AT 6 

,10;" ";AT 7 

,10;" 

n 


1 500 

GO TO 560 


3000 

IF INT ms< 4 THEN PRINT INK u;AT 20,14 

-ma ; " 

{ B} " 


3010 

IF INT ma-4 THEN PRINT INK u;AT 20,9; 

" {B} " 


3020 

IF INT ma> 4 AND INT ma<8 

THEN PRINT I 

NK u; 

AT 20,18-2*INT ma;" {B} 

II 

3030 

IF INT ms-8 THEN PRINT INK U;AT 20,4; 

" t B} 

w 


3040 

RETURN 


4000 

IF a(1)-u THEN RETURN 


4010 

PRINT OVER u; INK m1 ;AT 

m x , ra y ; " { A } " 

4020 

LET a(1)-u 


4030 

RETURN 


4100 

IF a(2 ) -u THEN RETURN 


4110 

PRINT OVER u; INK mi ;AT 

mx , my;"{B}" 

4120 

LET 3(2)-u 


41 30 

RETURN 


4200 

IF 3(3)-u THEN RETURN 


4210 

PRINT OVER u; INK mi;AT 

mx,my;"{B}{F} 

4220 

LET a(3)-u 


4230 

RETURN 


4300 

IF a(4)-u THEN RETURN 


4310 

LET mx4-mx+u 


4320 

PRINT OVER u; INK mi ;AT 

mx,my;"{B}{F} 

" ; AT 

mx4,my;"{D}" 


^330 

LET a(4)-u 


4340 

RETURN 


4400 

IF a(5)-u THEN RETURN 


4410 

PRINT OVER u; INK mi ; AT 

mx ,my;"{C } "; A 

T mx4 , my;"{E}" 


4420 

LET a(5 ) -u 


4430 

RETURN 


4500 

IF a(6)-u THEN RETURN 


4510 

PRINT OVER u; INK mi;AT 

mx , my;"{C} {F} 

" ; AT 

mx4,ray;"{E}{G}" 


4520 

LET a(6 ) -u 


4530 

RETURN 


4600 

IF a(7)-u THEN RETURN 


4610 

PRINT OVER u; INK mi; AT 

mx ,my;"{H}{I) 

" ; AT 

mx4,ray;"{J}{K}" 


4620 

LET a(7 ) -u 


4630 

RETURN 


4700 

IF a(8)-u THEN RETURN 


4710 

LET mx2-mx-u 


4720 

LET my6-my+2: IF my6>31 

THEN LET my6- 
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4730 LET mx5-mx+2: IF mx5>l8 THEN LET mx5- 
1 8 

4740 LET my3-my-u „ . „. . _ 

4750 PRINT OVER u; INK ml;AT mx2,my; lC}lF 
}";AT mx,my3;"{C}(2gs8}";AT mx,my6;"{F}";A 
T mx4,my3;"{E}{2gs8}";AT mx4,my6 ;"{G}";AT 
mx5 , my;"{E}t G}" 

4760 LET 3(8 ) -u 
4770 RETURN 

4800 IF s(9)-u THEN RETURN 

4810 LET mxl-mx-2: IF mx1<z THEN LET mxl-z 

4820 LET my2-my-2: IF my<z THEN LET my-z 
4830 LET my7-my + 3: IP my7>31 THEN LET my7- 
31 

IF mx6>18 THEN LET mx6- 


IF mx6>18 THEN LET mx6- 


4840 LET mx6-mx+3 
1 8 

4850 LET mx6-mx+ 3 
1 8 

4860 PRINT OVER u; INK m1 ;AT mx1 , my;"{C}{F 
}"; A T ox 2 ,my 3 ;"{H}{2gs8}";AT mx2,my6 ;"{I}" 

• t AT mx,roy2;"{C}";AT mx ,my3 ;"(3gs8}";AT mx, 
my6 ; "{gs8 } ";AT mx ,my7;"lF}";AT mx4,my2;"{E 
)";AT mx4,my3;"{3gs8}";AT mx4,my6 ;"{gs8}"; 
AT mx 4 ,my 7 ;"{G}";AT tnx5 , my 3 ; " (J ) ( 2gs8} " ; AT 
mx 5 ,my 6 ;"{K} n ;AT mx 6 ,my;"{E}{G}" 

4870 LET s(9)-u 

4880 RETURN 

5000 FOR i-z TO 16 

5010 PRINT OVER u; FLASH u;AT i+u,u;b$(30 
i+u TO 30*1+30) 

5020 NEXT i 

5030 PRINT FLASH u; OVER U;AT 20,1;" 

"5 AT 21,15" 

5400 DIM s(10) 

5500 FOR i-u TO 40: BEEP RND/10,10•RND~5 
5510 IF 1> 31 THEN GO SUB 8000-100*1 
5520 NEXT l 

5530 LET ov-4: LET v-4 
6000 FOR 1-z TO 16 

6010 PRINT OVER u; INK 2» FLASH Z;AT 1+1,1 
;b$*30*i+1 TO 30*1+30) 

6020 NEXT 1 

6030 PRINT FLASH z; INK 5 
« ";AT 21 


OVER 1 ; AT 20,1; 
1 ; " 


6035 PRINT OVER U;AT 20,4;"{B}" 

6040 LET li-ll-u 

6050 PRINT OVER z; INK z;AT 21,29;11 
6060 IF 11-z THEN STOP 
6070 DIM S(10)\ 

6200 GO TO 560 
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